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ABSTRACT 


Cost estimation of software, in this era of budgetary constraints, is vitally important 
to the success or failure of a software project. Although there are many cost estimation 
models available, cost overruns and late deliveries still persist. 

Coupling the Constructive Cost Model (COCOMO) and the System Dynamics Model 
of Software Project Management can provide a tool to study project management over the 
life of a project, to use sensitivity analysis to enhance COCOMO’s cost driver set, and to 
utilize an automated optimization system for software cost estimation in a single or multi- 
project environment. This new type of model creates a means to study the multi-project 
environment and determine what the advantages and disadvantages are to sharing 
resources between different software projects. 

Several 'C' programs were developed, that when interfaced and coupled with the 
system dynamic model, provide a tool to optimize cost estimates in a two project 
environment. It also creates an environment to perform extensive sensitivity analysis for 


the enhancement of COCOMO’s cost driver set in the single and two project environment. 
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I. INTRODUCTION 


A. BACKGROUND 

Cost estimation of software is one of the few areas in the 
computer industry that has not Seated with the rapid 
technological advances and growth experienced by the remainder 
of the computer industry. Although extensive studies have 
been completed and many cost estimation models developed, 
there is still no evidence that the software industry can 
accurately estimate the cost of a software project. Cost 
overruns, late deliveries, poor reliability, and user 
dissatisfaction has created an atmosphere of distrust in cost 
estimation models. In a recent speech, for example, Air 
Force General Bernard Randolph characterized software as the 
"Achilles’ heel of weapons development" and continued later 
Stating, "On software schedules, we've got a perfect record; 
We haven't met one yet."(Kitfield, 1989, p. 29) A report from 
the 101ST Congress summarized, "that in an increasingly 
constrained budget environment greater controls must be 
established to alleviate the continual cost overruns and 
excessive cost growth of these systems."(Congress, 1989, pp. 
1-2) In order to contend with these problems, cost estimation 
studies were directed toward the understanding of the complete 


software development process, which included many management 


issues. Although some progress has been made in the 
understanding of this development process, the problems still 
tend to persist. Studies have discovered that this, so 
called, "Software Monster" is as much a managerial problem as 
a technical one (Schlender, 1989, p. 100). Meanwhile, the 
demand for more reliable and more sophisticated software 
continues to escalate with the increased dependence of 
computers in everyday life (Abdel-Hamid, 1989, p. 1426). 

Coupling an algorithmic model, such as a Constructive Cost 
Model (COCOMO), and a Systems Dynamics Simulation Model of 
Software Project Management may enhance the ability to provide 
better cost estimations. A coupled computer based modeling 
system can be used to efficiently and effectively study the 
effects of altering various objective and subjective 
management controlled variables on the cost and schedule 
aspects of a software project. The modeling system can also 
be used to repeat the same project simulation many times while 
adjusting different parameters in an effort to determine the 
variables that are most sensitive to the cost and schedule of 
a single project. 

Many organizations today utilize a matrix organizational 
structure. “In this type of organizational structure many 
resources are shared by several different projects. The 
coupled modeling system can create a means to simulate two 
projects in a shared resource environment that automatically 


refines the cost and schedule estimates. It can also repeat 


the simulation process many times while adjusting different 
parameters not only to achieve optimization in estimation, but 
also to determine the variables most sensitive to cost and 


schedule estimates in a two project environment. 


B. OBJECTIVES 

Several models have been developed to provide cost 
estimates for software development projects. The COCOMO model 
has been one of the most widely studied and used models in 
cost estimation. The System Dynamics Simulation Model of 
software development has been developed to study the effects 
of certain management policies on software project 
development. These management polices are subjective in 
Mature and are difficult to define. The emphasis of this 
thesis will focus on the development of a new kind of software 
estimation model that combines an algorithmic model, COCOMO, 
with a systems dynamic simulation model. It will initially 
focus on single software development projects, but will also 
include studies considering cost estimation in a two project 
environment. Additionally, this thesis will investigate the 
addition of management variables as a means to enrich the 
current set of COCOMO cost drivers. The test cases presented 
will be proofs to ensure proper operation of the interfaces 
between models. The experiment presented will be that of 


limiting one specific resource variable between the two 


projects and observing the process of automatic refinement of 


cost estimates over a series of iterations. 


C. THE RESEARCH QUESTION 

The primary research question of this thesis is to 
determine the advantages of coupling COCOMO with a dynamic 
Simulation model of software development. The other important 
question of this thesis is whether the combined model would 
enhance our ability to do sensitivity analysis and to 
determine what, if any, approach is best for optimizing cost 


estimations in a two project environment. 


D. SCOPE 

The scope of this thesis is to analyze the usefulness of 
the composite model concept, and to investigate the utility 
gained from coupling these two models in both the single and 
two project environments. The scope of this thesis is not, 


however, to improve cost accuracy. 


E. METHODOLOGY 

This thesis follows a series of logical steps in the 
development and testing of a coupled modeling system. The 
initial phase consists of designing a small "C" test program 
to determine the best possible interface between the program 
and the simulation model. Once an interface is successful, 
the second phase begins. It includes the development of a "C" 


program which will operate as a front-end system for the 


simulation model and provide the COCOMO cost estimations for 
effort and schedule. After completion of the program and the 
interface is successful, testing must occur. The testing 
includes baseline tests of program algorithms to ensure the 
data being passed between programs is accurate. This phase of 
testing includes testing the Basic  COCOMO Model, the 
Intermediate COCOMO Model, and nominal productivity 
calculations. 

The last phase includes the programming and testing of two 
additional "C" programs. The first program is very similar to 
the program previously developed. It also includes the front- 
end system and the COCOMO cost estimations for effort and 
schedule. The difference between the programs is that the 
program from the previous phase was developed for a single 
project environment and the latter provides for the same 
requirements in the two project environment. After successful 
completion of this program, a back-end program will be 
developed to evaluate the results, provide adjustments where 
necessary, and create an automatic iterative loop process 
which continually refines cost estimations. 

The testing for this phase will include a simple test, as 
above, to prove the accuracy of program algorithms, but will 
also include an experiment. The experiment will consist of 
several tests to determine the opportunity gained by creating 
an iterative loop process for refinement of cost estimations 


in a two project environment. In addition, it will also test 


the ability of this type of modeling system to do extensive 
sensitivity analysis by limiting certain shared variables and 


observing the results under several different conditions. 


F. ORGANIZATION OF STUDY 


This chapter has discussed the general background and 


themes which direct this study. The remaining chapters are 
organized as follows. Chapter II discusses the architecture 
of the system. This includes background discussions on the 


dynamic simulation model, COCOMO and the design structure of 
the integration between the two models. Chapter III describes 
in-depth the operation of the system. Chapter IV discusses 
the tests and experiments conducted in this thesis. The tests 
will show the validity of the program algorithms and the 
experiment will show the potential of using this coupled 
modeling system. Chapter V discusses the conclusions and 


recommendations attained from conducting this study. 


II. SYSTEM ARCHITECTURE 


A. INTRODUCTION 

This system is a coupling of a series of "C" programs and 
a dynamic simulation model to create an interactive, user- 
friendly support tool for the purpose of studying and refining 
cost estimation procedures while gaining a better 
understanding of software development project management. 
This chapter first discusses the background of the dynamic 
simulation model and COCOMO. It then discusses, in detail, 


the system integration between the two models. 


B. A DYNAMIC SIMULATION MODEL OF SOFTWARE DEVELOPMENT 

The Dynamic Simulation Model is part of an on going study 
of software development project management dynamics. The 
model focuses on four basic subsystems which integrate the 
management process of software development as well as the 
production-type functions that constitute the software 
development life cycle (Abdel-Hamid, 1990, p. 21). The four 
subsystems include: human resource management; software 
production; controlling; and planning. The Dynamic Simulation 
Model is unique in that it is able to integrate key management 
related software development processes such as scheduling, 


productivity, and staffing to derive implications and gain 


knowledge about behavioral aspects of management in the 
overall software development process. It is also unique in 
its use of the feedback principles of system dynamics to 
structure and clarify the complex web of dynamically 
interacting variables. Figure zd establishes the 
interactions and relationships between each of the four 
subsystems (Agan, 1990, p. 7). 

The human resource management subsystem comprises the 
hiring, training, assimilation, and transfer of the human 
resource. In this subsystem, the work force is divided into 
two types of employees, newly hired and experienced. Newly 
added team members tend to be less productive than experienced 
members. On the other hand, experienced members productivity 
is reduced due to the training needs involved in assimilating 
newly added members into the team. Employee turnover also 
directly impacts project development. The larger the project 
the greater the turnover rate. This corresponds with the 
above productivity discussion of newly added members being 
less productive. (Abdel-Hamid, 1990, p.22) 

Figure 2-1 suggests "work force available" has a direct 
bearing on the allocation of manpower among the different 
software production activities in the Software Production 
Subsystem. The primary software production activities are 


development, quality assurance, rework and testing. 


Human 
Resource 
Management 


Progress 
status 


Software 
production 


Tasks 
completed 


Effort 
remaining 





Eigure: 25 Four Sub-systems of the Dynamic 
Simulation Model 


Quality assurance is used as a means of detecting errors 
in development activities. Although some errors will elude 
detection until the testing phase, errors detected through 
quality assurance will be reworked. As progress is made, a 
comparison of where the project is versus where it should be 
is evaluated. This evaluation is a function of the control 
activity in the Controlling Subsystem. Since software is an 
intangible product during most of the development process and 
there are no visible milestones to measure progress or 
quality, the Controlling Subsystem contains some of the most 
difficult problems a manager must solve. Therefore, the 
Controlling Subsystem possibly has the greatest impact on this 
entire system. As depicted in Figure 2-1, the Controlling 


Subsystem directly effects the Planning Subsystem in the 


quantification of "effort remaining" which indirectly impacts 
both "schedule" and "work force needed" to complete the 
project. The "progress status" of the project reported back 
to the human resource management subsystem directly effects 
team productivity. In early stages of the project, team 
members rely on the managers assessment of their overall 
productivity as they are unable to perceive the productiveness 
of the work force. Therefore, as the project nears 
completion, the managers projected productivity gradually 
ceases to influence the perceived productivity of the team as 
it becomes a function of feedback determined by actual tasks 
completed. (Abdel-Hamid, 1990, p. 23) 

The Planning Subsystem is responsible for the initial 
project estimates and, when necessary, the revised estimates 
as each subsystem continues to effect the other until project 
completion. For example, for a project perceived to be behind 
schedule, a manager may hire additional employees, delay the 
schedule, possibly a combination of the two, or do nothing 
(Abdel-Hamid, 19590»: 223) 

The dynamic simulation environment of this model 
concentrates on the managerial aspects of software development 
and on the fundamental understanding of the software 


development process. 
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C.  COCOMO MODEL 

The COnstructive COst MOdel or COCOMO is an algorithmic 
model that is used to determine initial cost estimates in 
software development effort and schedule. Initial cost 
estimates of this model are a function of the estimated size 
of the software product in source E There are 
three different versions of COCOMO which include Basic COCOMO, 
Intermediate COCOMO, and Detailed COCOMO. Basic COCOMO is an 
algorithmic model that is effective for quick and rough order 
of magnitude estimates of software costs. However, its 
accuracy is limited because it does not account for 
differences in hardware constraints, personnel quality and 
experience, use of modern tools and techniques, and other 
project attributes known to have a significant impact on 
software costs. (Boehm, 1981, p. 58) 

The intermediate COCOMO model increases the accuracy of 
basic COCOMO by incorporating 15 cost drivers into the effort 
and schedule calculations. These 15 cost drivers are grouped 
into four categories: software product attributes, computer 
attributes, personnel attributes, and project attributes. The 
cost drivers are listed by category below: 

e Product Attributes 
— Required Software 
- Reliability 


— Database Size 
—- Product Complexity 


if al 


e Computer Attributes 

- Execution Time Constraint 

— Main Storage Constraint 

= Virtual Machine Volatility 

- Computer Turnaround Time 
* Personnel Attributes 

— Analyst Capability 

— Applications Experience 

— Programmer Capability 

— Virtual Machine Experience 

— Programming Language Experience 
* Project Attributes 

= Modern Programming Practices 


- Use of Software Tools 
- Required Development Schedule 


Each of these cost drivers has an associated multiplying 
factor used in the algorithmic calculations to determine, with 
more accuracy, the overall effort and schedule costs of the 
software development project. (Boehm, 1981, pp. 114-117) 

The detailed version of COCOMO employs a three level 
hierarchical decomposition of the software product whose cost 
is to be estimated (Boehm, 1981, p. 347). It also uses effort 
multipliers to determine the phase distribution of effort over 
the life cycle. This version of COCOMO did not lend itself to 
this coupled modeling system and, therefore, was not utilized. 

In the  COCOMO environment there are three modes of 
software development. They include the Organic Mode, the 
Semidetached Mode, and the Embedded Mode. Distinguishing 


between the modes is extremely important to prevent 
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overestimation or underestimation in the amount of effort 
required for the project. (Boehm, 1984, p. 20) 

The organic mode represents projects with relatively small 
software teams who operate in a familiar, in-house 
environment. The teams are comprised of people with extensive 
experience in the organizations structure, in working with 
related systems, and in understanding how the system will 
contribute to the goals and objectives of the organization. 
The Organic mode environment lends itself to a relatively 
relaxed atmosphere that leads to higher productivity and 
smaller diseconomy of scale on the project. (Boehm, 1981, p. 
78) 

The semidetached mode represents a project that falls 
between the definition of the organic mode and the embedded 
mode. The software project development teams are comprised of 
a wide mixture of experienced and inexperienced people, some 
of which understand how the system relates to the organization 
and some that do not. (Boehm, 1981, p. 79) 

The embedded mode represents a project which must operate 
in a strongly coupled complex of hardware, software, 
regulations and operational procedures. Initially, the team 
consists of a small group of analysts, normally from outside 
the organization, who complete product design. Then, again 
from outside the organization, a large group of programmers 
are hired to complete the project. Because of rigid 


requirements and the inability to make changes to these 
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requirements, the embedded mode environment tends to be less 
productive and lead to greater diseconomies of scale. (Boehm, 


1981, pp. 78-80) 


D. INTERFACING "C" PROGRAMS WITH DYNAMIC SIMULATION MODEL 

Interfacing between programs is accomplished through the 
DOS operating system. DOS uses a series of system calls to 
maneuver through the different processes within the batch 
files. The DOS operating environment allows the system, 
through the use of errorlevel calls and goto statements, to 
execute and exit the different programs which are not 
compatible due to software language limitations (Schildt, 
1988, pp. -140=143}). 

Figure 2-2 represents a model of the total system 
architecture which indicates the flows and controls of the 
execution process of all the programs which makeup the coupled 
model. The batch file, RUN.BAT is executed by typing RUN at 
the DOS prompt and pressing enter. This batch file 
initializes the start up of the coupled model. Once the 
system is initialized, the user must select the project 
environment in which to operate. The batch file RUN.BAT first 
calls the "C" program called MAIN.EXE as shown in Figure 2-2. 
It is a small program that allows user access into either the 
single project or two project environment. Figure 2-2 clearly 
illustrates the distinct paths of the two environments. After 


the decision is made, the model automatically executes the 
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selected INPUT program. The INPUT program is used as a front- 
end system for the dynamic simulation model and as an 


algorithmic model to complete the COCOMO calculations. 


RHKKKKKKAKREKKKKEKKEKKEKKKKKRUN BATA ARK RAR KK KK RR KARA 


/* This is the main batch file which initiates the */ 
/* execution of the coupled modeling system. */ 


QECHO OFF 

del report .out 

main 
/* In the "C" language, the exit command with */ 
/* an associated number, such as exit(1), enables */ 
/* DOS' s ERRORLEVEL command to accept the exit */ 
/* number, (1) in this case, and call the next */ 
/* appropriate program using a GOTO statement.  */ 
/* Several examples of this are shown in RUN.BAT, */ 
/* the batch file displayed below. The remainder */ 
/* of the "C" programs all interface with the DOS */ 
/* batch environment in the same manner. 

IF ERRORLEVEL 1 GOTO two 


inputl /* if exit (0), then execute */ 
IF ERRORLEVEL 1 GOTO done 

GOTO roll 

: roll 

call execl.bat /* single project environment */ 
outputl 


IF ERRORLEVEL 4 GOTO disp 
IF ERRORLEVEL 3 GOTO prn 
IF ERRORLEVEL 0 GOTO done 


GOTO done 

: two 

input2 

IF ERRORLEVEL 1 GOTO done 

GOTO run 

: run 

call exec2.bat /* two project environment */ 
IF ERRORLEVEL 1 GOTO done 

output2 

IF ERRORLEVEL 4 GOTO disp 

IF ERRORLEVEL 3 GOTO prn 

IF ERRORLEVEL 1 GOTO run 

IF ERRORLEVEL 0 GOTO done 

:disp s /* display on screen */ 
type report.out 

GOTO done 

:prn /* print results */ 
print report.out 

GOTO done 

: done 


REM Program operation is complete. 


3 e oe e fe ee fe eoe eoe e A A A e eoe e fe eee oe eoe ee fe efe fe efe e e fe e ec e eoe ee ce A A A e e e n A Xx xA x 


BS 


After the inputs and calculation are completed, the 
program automatically terminates, and the appropriate EXEC 
batch file is called. The process of interfacing the program 
to the batch file is discussed in the documentation portion of 
the RUN.BAT source code displayed below and throughout the 


source code of the actual programs included in the Appendices. 
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l. SINGLE PROJECT ENVIRONMENT 
Figure 2-4 represents the processes and data flows 
within the system architecture that occur in the single 
project environment. 
The single project environment is entered by user 


selection from a menu which is displayed in Figure 2-3. 


INITIALIZATION OF PROGRAMS 
(Select one of the following) 


1 - SINGLE Project Environment 
2 — TWO Project Environment 


Select environment you wish to use and press enter: 





Figure 2-3: INITIALIZATION OF PROGRAMS MENU 


Once selected, INPUT1.EXE, a "C" program designed to interface 
with a single project environment version of the dynamic 
Simulation model, is executed. The INPUT1.EXE program enables 
the user to utilize current parameters from a saved project, 
change parameters from a previously saved project or 
completely enter a new project. INPUT1.EXE has two basic 
functions. ‘The first is to complete COCOMO cost estimation 
VOS from the input variables entered by the user. 
The second is to provide a front end system that allows the 


user to easily input or provide changes to the input variables 


18 


1 
NOILV InWIS : 
1VE"3NOWNIS ! 


oa ela 
IVa LITX3 


TIVO N318AS 





Coupled Model Architecture for a Single 


Figure 2-4: 


Project Environment 


i29 


of the dynamic simulation model. Once the inputs and 
calculations are completed the entire list of variables are 
saved to a file called SIMONE.DNX, which is displayed in the 


input/output file below. 


e o o e e e e e e e d o o A A XX XXXXSTMONE.DNAX * * * * e osos seo oe oe oe e n n n n e A n n n n x 


/* This an example of the output file created by */ 
/* INPUT1.EXE and is the input for the simulation. */ 


RJBDST=64000 

TOTMD1=4113.23 

TDEV1=302.60 

INUDST= 0.50 

ADMPPS= 1.00 

HIREDY=40.00 

AVEMPT=1000000.00 

TRPNHR= 0.20 

ASIMDY=80.00 

TNERPK=25.00 23.86 21.59 15.90 13.60 12.50 

TPFMQA=0.150 0.150 0.150 0.150 0.150 0.150 
0.150 0.150 0.150 0.150 

DEVPRT- 0.80 

DSIPTK-55.22 


3000000000 


aa 


RAERRAERRARRERRE RE RE RE RE RE RE RE RE RE RE RE REA RARE RRA RRE RA RARA RARA RAR RR RR 


OUTFILE.DNX is a binary file which is also saved at 
this point in the process. This file is utilized in 
conjunction with OUTPUT1.EXE. This file passes COCOMO 
estimated effort and schedule costs to the OUTPUT1.EXE program 
for report processing. This file was developed to easily pass 
variables directly from INPUT1.EXE to OUTPUT1.EXE while 
keeping them completely separate from the dynamic simulation 
model. After the files are saved, INPUT1.EXE automatically 
terminates and returns to the DOS environment to call 


EXEC1.BAT which initiates the dynamic simulation environment 
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project. This batch file works identical to the main batch 
file in regard to the interfacing between programs and 
processes of the dynamic simulation model. The batch file is 


shown below and is modeled as an insert in Figure 2-4. 
x e ee ee e eee e e o e X X XXX XEXECI.BAT**** Xo os o ok coo e e x x 


/* This batch file represents the batch file that calls */ 
/* the simulation model for the single project environment. */ 


DYNEX SIMONE -d model.drs 
IF ERRORLEVEL 4 GOTO ERROR 
SMLT SIMONE -GO = -DTM = 
REP SIMONE -T 

GOTO EXIT 

: ERROR 

ECHO *** ERROR 1 **** 
¡EXIT 


KAKI AAA ARA AAA AAA AAA AAA ARA AAA AAA AAA AAA 


DYNEX.EXE, SMLT.EXE, and REP.EXE are executable 
programs which are programmed in the dynamo language and must 
be present in the default directory for the System Dynamics 
Model to operate. The SIMONE.DRS file, displayed below, is 
used by the dynamo report generator to write the required 


output which will be displayed in SIMONE.OUT. 
RC ee e CI e o e X X x Xx XX *STMONE.DRS * * * ooo se os ox e o o e e A A x 


/* This file works in conjunction with the dynex program */ 
/* and the dynamo report generator to produce the output  */ 
/* file SIMONE.OUT. Nf 


REPORT 

TIME-MAXTIME, 
FORMAT-"1«,15»,16«",PICTUREz"ZZZZZZV.99" 
" cummd (" ,CUMMD, ")." 
FORMAT="1<,15>,16<",PICTURE="ZZZZZZV.99" 
" time(",TIME, ")." 


3 e e e e ee eee eee He He eoe oe e e ee ee He ee ee eoe eoe ee eee eec A x Xx 
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SIMONE.DNX, as discussed above and as shown in Figure 
2-4, is the output file of INPUTI.EXE and contains all of the 
input variables used by the simulation model. Figure 2-4 also 
depicts the relationships of the primary components of the 
dynamic simulation model and how they relate to both the 
EXEC1.BAT and RUN.BAT batch files. 

Upon completion of the dynamic simulation model and 
EXEC1.BAT, the system again returns to the RUN.BAT batch file 
where OUTPUT1.EXE is called. This program utilizes 
information from OUTFILE.DNX and SIMONE.OUT to allow the user 
the ability to print or display the comparisons between the 
estimates and actual costs of effort and schedule. The 
results are saved to a file called REPORT.OUT. This file 
will remain resident on disk until the program is re- 
initialized. 

2. TWO PROJECT ENVIRONMENT 

Figure 2-5 represents the processes and data flows 
within the system architecture that occur in the two project 
environment. The two project environment is entered by user 
selection from a menu which is displayed after execution of 
MAIN.EXE and is shown in Figure 2-4. Once selected, 
INPUT2.EXE, a "C" program designed to interface with a two 
project environment version of the dynamic simulation model, 
is executed. The INPUT2.EXE program enables the user to 


utilize current parameters from saved projects, change 
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parameters from previously saved projects or completely enter 


new projects to complete two basic functions. The first is to 


complete  COCOMO cost estimation calculations from input 


variables entered by the user for both projects, as discussed, 
in the previous section. The second is to provide a front end 
system that allows the user to easily input or provide changes 
to the 


input variables for both projects in the dynamic 


Simulation model. Once the COCOMO calculations and inputs are 


completed and the variables entered, the entire list of 


variables are saved to a file called SIMTWO.DNX, which is 


displayed in the input/output file below. 


IIIZIZIIIIIIPIIIZIIIIIEI-héjw4 [BÉ P CRLERZRERZERZIZZEPREZEIIZIIIIIIIEZI: 


/* 
/* 


$ / 
[/ 


This an example of the output file created by 
INPUT2.EXE and is the input for the simulation. 


C RJBDSI(1)264000 
RJBDSI (2)-264000 
TOTMD1 (1)= 3593 
TOTMD1 (2)= 3593 


HHHOOOOQOOQOQOOOQO09000000 


H 


QOO 


TDEV1(1)- 
TDEV1(2)- 
INUDST(1)= 0. 
INUDST (2)= 0. 
ADMPPS (1)= 1 
ADMPPS (2)= 1. 
HIREDY (1)=40. 
HIREDY (2)=40. 


348 
348 


50 
50 


. 00 


00 
00 
00 


AVEMPT (1) =1000000.00 
AVEMPT (2) 21000000.00 


TRPNHR(1)= 0. 
TRPNHR(2)= 0. 
ASIMDY (1) =80. 
ASIMDY (2) =80. 
TNERP1=25.00 
TNERP2=25.00 
TPFMQ1=0 ..150 

0.150 
TPFMQ2=0.150 

0.150 
DEVPRT (1)= 0. 
DEVPRT (2)= 0. 
DSIPTK(1)=59. 


20 
20 
00 
00 
23.86 
23.86 
0.150 
0.150 
0.150 
0.150 
80 
80 
89 


21.59 
21.59 
0.150 
0.150 
0.150 
0.150 


15.90 
15.90 
0.150 
0.150 
0.150 
0.150 
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13.60 12.50 
13.60 12.50 
0.150 0.150 
0 
0.150 0.150 
0 


C DSIPTK(2)=59.89 
C STRTDT(1)= 0.00 
C STRTDT(2)= 0.00 
C NCLTWF=1000000.00 


IKI KKK IK IIS IK IR IIS IIIB IK ISIS ISI IKI ISI ISIS ISI SISISIA IAA HK 

OUTFILE2.DNX is a binary file which is also saved at 
this point in the process. This file is utilized in 
Somaunction with  OUTPUT2.EXE. This file passes COCOMO 
estimated effort and schedule costs to the OUTPUT2.EXE program 
for report processing and iterative loop control. The file 
waS developed as a means to easily pass variables directly 
from INPUT2.EXE to OUTPUT2.EXE while keeping them completely 
Separate from the dynamic simulation model process. After the 
files are saved, INPUT2.EXE automatically terminates and 
returns to the DOS environment to call EXEC2.BAT. This 
initiates the dynamic simulation environment for two projects. 
The batch file works identical to the main batch file and 
EXEC1.BAT in regard to the interfacing between programs and 
processes of the dynamic simulation model. EXEC2.BAT is 


displayed below and is modeled as an insert in Figure 2-5. 
ek e ee e e eco o Je do de ese desee **EXEC2. BAT ck soe e e se se se fe fe de k de d k tete k e se je fe 


/* This batch file represents the batch file that calls  */ 
/* the simulation model for the two project environment. */ 


DYNEX SIMTWO -d model.drs 
IF ERRORLEVEL 4 GOTO ERROR 
SMLT SIMTWO -GO = -DTM = 
REP SIMTWO -T 

GOTO EXIT 

: ERROR 

ECHO *** ERROR 1 ****x* 

: EXIT 


HACHA A e e A e fe e e e e e eoe efe e e e e e A fe e eoe oe x e eo ox e ec ox e e Y x Je e e e e x Je n x Xx Y Xx» 
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DYNEX.EXE,  SMLT.EXE, and REP.EXE are executable 
programs which are programmed in the dynamo language and must 
be present in the default directory for the System Dynamics 
Model to operate. The SIMTWO.DRS file, displayed below is 
used by the dynamo report generator to write the required 
output which will be displayed in SIMTWO.OUT. SIMTWO.DNX, as 
discussed above, is the output file of INPUT2.EXE and stores 
all of the input variables used by the simulation model. 
Figure 2-5 also depicts the relationships of the primary 
components of the dynamic simulation model and how they relate 


to both the EXEC2.BAT and RUN.BAT batch files. Upon 


EIZIZIIIZIIIIIIIIIZIIIIIIIT-héj(w [eB  LRRRRAZZZIZIZZIIIZIIIIIIIIIIII. 


/* This file works in conjunction with the dynex program */ 
/* and the dynamo report generator to produce the output  */ 
/* file SIMONE.OUT. 7 


REPORT 

TIME=MAXTIME, 
FORMAT="1<,15>,16<",PICTURE="ZZZZZZV.99" 
"cummd (", CUMMD(1),")." 
FORMAT-"1«,15»,16«",PICTUREz"222222V.99" 
"cummd (", CUMMD (2) ,")." 

FORMAT="1<, 15>, 16<", PICTURE="ZZZZZZV.99" 
" time (",DURTN(1),"7)." 
FORMAT-"1«,15»,16«",PICTURE-"222222V.99" 
" time(",DURTN(2),")." 


He de e e fe e e fe e fe fe fe fe fe e e fe fe e fe e e fe ee fe fe e fe fe e fe e e fe fe fe fe e fee e e fee fe e e e e e e eon n 9n n Án x e 

completion of the dynamic simulation model and EXEC2.BAT, the 
system again returns to the DOS environment where OUTPUT2.EXE 
is called. This program utilizes information from 
OUTFILE2.DNX and SIMTWO.OUT to create an iterative loop 


environment. 
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Figure 2-5 shows the flow of the iterative loop 
process with dotted lines. The basic theory behind this 
process is to give the user the ability to decide on the 
accuracy level and the number of iterations to run in order to 
continually refine cost estimates. The iterative loop runs as 
many times as the user desires or until the error rates are 
equal to or less then those entered by the user. The error 
rates are determined by using standard algorithms for finding 
percent error (i.e., difference between estimated effort from 
COCOMO and actual effort determined by the simulation model 
divided by the actual effort). In addition to loop 
limitation and error rate entries, the user may also wish to 
adjust the actual effort and schedule values determined by the 
simulation model prior to execution of the next loop. These 
adjustments can be made to both schedule and effort values in 
each of the two projects. 

The error rates, loop limitations, and adjustment 
factors give the user the flexibility to run the same projects 
undez many different conditions. This iterative loop process 
provides the user with an automated tool for sensitivity 
analysis to gain a better understanding of the software 
development process and as a means to refine cost estimations. 
As depicted in Figure 2-5, exiting this process either returns 
you to the loop or to the report menu for displaying or 


printing of results from the REPORT.OUT file. 
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III. SYSTEM OPERATION 


A. BACKGROUND 

This system is a coupling of a series of "C" programs and 
a dynamic simulation model to create an interactive, user- 
friendly support tool for the purpose of studying and refining 
cost estimation procedures while gaining a better 


understanding of software development project management. 


B. SPECIAL FEATURES 

The following is a list of several special features and 
considerations which were incorporated into the design and 
development of this system. 


e User Friendly: This system was designed for those who 
have some experience in using COCOMO and the Dynamic 
Simulation Model. Although the system is designed for 
ease of use, the user must have a general understanding of 
the different variables and their associated acronyms in 
order to achieve effective and efficient data entry. 


e Menu Driven: This system uses a menu-driven structure 
that enables the user to recognize the options available 
at each level. The highest level menu is the program menu 
to select a specific environment (i.e., a one or two 
project environment). Once an environment is selected, 
the associated function menu appears. This menu enables 
the user to enter new projects, read existing problems 
from disk, or exit the program. Several options also have 
associated sub-menus to help direct the user. 


e Easy Data Entry and Modification: This system enables the 
user to enter data from the keyboard or read stored data 
from disk. Entry formats are designed for easy entry or 
modification of input variables. 
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C. GETTING STARTED 

The required and optional hardware, software and 
peripherals necessary to operate this coupled modeling system 
include the following: 

e Required Equipment: This coupled modeling system is 
designed to run on an IBM personal computer or true IBM PC 
compatible computer with at least 256K bytes of memory; at 
least one high density disk drive; and DOS 3.3 version or 


higher. 


e Optional Equipment: This model supports the IBM enhanced 
graphics card, IBM color graphics card, IBM VGA card, and 


Hercules monochrome graphics card. It supports the IBM 
proprinter and true compatiables. A hard disk drive would 
improve the overall operation of the system. A math 


coprocessor is supported for the dynamic simulation model 

but is not required. 
D. GETTING THE SYSTEM READY FOR USE 

For ease of use, this system is contained on a single high 
density floppy diskette. This enables complete operation from 
almost any floppy drive system. For faster processing of the 
System, it is recommended to load and operate the system from 
the hard disk. This system automatically uses the default 
printer, unless you redirect the output, at the time of 
printing, to another printer. 

l. Installing the Software on Your Hard Disk 

If you are familiar with a utility tool, you may wish 

to create ee directory and copy all files and programs on 


the diskette to the new directory. Otherwise, continue with 


the following general procedures. 


Z9 


a. When your screen displays the DOS prompt of the 
drive you wish to install the program, make a sub- 
directory using the DOS command "'"MKDIR'. For 
example the sub-directory may be called DSMI for 
Dynamic Simulation Model Interface. 

b. Go to the new sub-directory using the DOS command 
CD Then copy all files and programs from the 
diskette to this new sub-directory using the 
‘COPY’ command. 

2. Installation with Hercules Monochrome Graphics Card 

a. Ensure the three files "INT10. COGE 
"HARDCOPY.COM",and "PRINTER.DEF" are copied from 
the diskette to your hard disk root directory. 

b. Add the line "INT10" to your AUTOEXEC.BAT file. 

C. Add the line "HARDCOPY" to your AUTOEXEC.BAT file. 

E. OPERATING THE SYSTEM 

Operating the system can be accomplished either by running 
the system from the high density floppy diskette or the hard 
disk. Standard procedures for system operation are as 
follows: 

l. Operating the System from Diskette 

The following is a list of steps required to operate 

the model from a diskette. This system can run on a high 
density floppy drive system. 

a. Turn computer on if not already on. 

b. Insert diskette into disk drive and change 
default drive to the disk drive which contains the 
diskette (i.e., if default drive is C then change 
it so DOS prompt reads, for example, 'A»'). 

C. At the prompt type 'RUN' and press the ENTER key. 
The system will be loaded and the initial menu 


will be displayed. Figure 3-1 shows the 
initialization menu. 
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2. Operating the System from the Hard Disk 
After the computer is turned on, the interface of the 
software is designed as a hierarchy of menus and a series of 
data entry points. To execute the model, proceed with the 
following steps. At the prompt of the sub-directory you 
created on the hard drive, type the command 'RUN' and press 
enter. This will display the welcome screen shown in Figure 


3-1. Press any key to continue to the environment selection 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


Welcome to the coupling of 
COCOMO and a SYSTEMS DYNAMICS MODEL 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


Programmed by Richard W. Smith & Tarek K. Abdel-Hamid 


Press [ANY KEY] to continue... 





Figure 3-1: Welcome Screen 


window similar to the one displayed in Figure 3-2. Your 
selection will determine which environment you will operate 
am. Once selected you may not traverse from the single 
project environment to the two project environment nor vice 
versa. As mentioned above, this system provides a hierarchy 
of menus. Thus, when you make a menu selection, you move to 


a new menu either up or down the hierarchy of menus. 


2l 


Therefore, whichever environment is chosen, the appropriate 
initial menu will be displayed similar to the one in 


Figure 3-3 





INITIALIZATION OF PROGRAMS 
(Select one of the following) 


1 — SINGLE Project Environment 
2 — TWO Project Environment 


Select environment you wish to use and press enter: 





— — — — — — a: Oe eee ee y 


Figure 3-2: INITIALIZATION OF PROGRAMS MENU 


F. OPERATING IN THE SINGLE PROJECT ENVIRONMENT 

The single project environment is available to observe how 
a single project is affected by software development project 
management over the life of the project. It can be also used 
as a tool for sensitivity analysis in studies concerning the 
effects certain variables have on the development cycle. The 
baseline data for this model is stored in a data file called 
BASE.PRF, and provides the values for the SIMONE.DNX input 
file shown on page 23. Assuming that the COCOMO estimates are 
accurate, the dynamic simulation model was adjusted, using 
baseline data, for the purpose of achieving an error rate of 
less than one percent between the initial cost estimates from 


COCOMO and the actual results from the simulation model. When 
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achieved, it can be assumed that the simulation model reflects 
the management policies of a particular organization (i.e., 
hiring and firing, turnover rates, training delays, etc.). 
Figure 3-3 represents the initial menu in the single 
project environment. As shown, there are three choices: load 
a previously saved project, enter a new project, or exit the 
program. These three options are discussed in detail in the 


following sections. 


INITIAL MENU 


1l - LOAD project from disk. 
2 — NEW project. 
3 - EXIT Program. 





Select with number or cursor and press [ENTER]... 


Figure 3-3: INITIAL MENU for Single Project Environment 


l. Enter New Project 
If you select a new project, a basic instruction page, 
shown below, is displayed. Selecting any key will allow you 


to continue. 


S 


KAKKKKKKKKKKKKKKKKK IMPORTANT *XXXXXAXARAKAAKA KA KK 


In order to load a NEW project you must enter 

input data for both COCOMO and the Dynamic Simulation. 
There are two forms on which all data must be entered. 
Please enter the data as accurately as possible. 





| Press [ANY KEY] to continue... | 


The next step is the data entry phase of the program. 
A series of variables will be displayed one by one. The 
program is designed to accept floating point entries for each 
variable, but it will accept integers and automatically 
convert them to floats. The system is designed to accept only 
numbers and a single decimal point for each entry. Other 
entries could cause the system to malfunction. Recovery from 
a malfunction is to start over using Ctl-Alt-Del. This 
shortcoming will be remedied in the next version. If you 
enter a number incorrectly, continue with the entry process 
until all the entries are made. You will have the opportunity 
to re-enter variables in a later step. 

There are two entries that are initially made on the 
COCOMO input page: the size of the project and the name of 
the file you will store the data. You must enter a file name 
of your choice with a maximum of eight characters, with the 
first character being a letter. Do not use a period and 


extension in your file name. The system automatically adds 
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the extension ".PRF" to your date file storing the project 
profile. 

The pop-up menu for selecting the basic or 
intermediate COCOMO Model is displayed in Figure 3-4. 
Selecting the Basic model initiates the mode selection menu 


for display and is described below. Selecting the 


COCOMO MODEL 
ESC - EXIT 


1 - Basic COCOMO Model 


2 — Intermediate COCOMO Model 


Select the model you wish to use and press enter: 





rt et SE mmm 


Figure 3-4: Selection Menu for COCOMO Model 


intermediate model initiates the screen shown below in Figure 
ELS. 

This screen is the COCOMO Cost Driver input screen. 
There are fifteen cost drivers associated with the COCOMO 
model. They are displayed as acronyms and are all initialized 
to 1.00. You may leave the cost drivers as they are or change 
them to the appropriate value. Figure 3-5 shows three 
different cost drivers that have already been modified. To 
change the value of a cost driver, you enter the number of the 
cost driver you wish to change and press enter. A pop-up 


menu, like the one shown below in Figure 3-6, will be 
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displayed with all of the levels identified with that 
particular cost driver (i.e., very high, high, nominal, low 
etc.) and the associated values available to choose from. 
Select the value or level you desire and press enter. This 
returns you to the previous screen, Similar to Figure 3-5, 


with the new value displayed. 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


INTERMEDIATE LEVEL COCOMO MODEL INPUTS 


for BASE.PRE 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


1. RELY: 0.75 
2. DATA: 1.00 
3. CPLX: 1.00 
4. TIME: 1.00 
5. STOR: 1.06 
6. VIRT: 1.00 
7. TURN: 1.00 
8. ACAP: 1.00 
9. AEXP: 1.00 
10 PCAP: 1.00 
11 VEXP: 1.00 
12 LEXP 1.00 
13 MODP 1.00 
14 TOOL 1.00 
15 SCED 1.08 


16. Press [16 or 0] when entries are complete. 


Select Cost Driver and press [Enter]: 





Figure 3-5: COCOMO Cost Driver Input Screen 
Again you may change as many cost drivers as you wish. 
Selecting number 16 and pressing return exits you from this 


screen and displays the mode selection pop-up menu. 
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The mode selection menu, shown in Figure 3-7, enables 
you to select the organic mode, the semi-detached mode, or the 
embedded mode.  Whichever mode is selected, the appropriate 
COCOMO and nominal productivity calculations are completed, 
and the input display screen is displayed. This screen, shown 


in Figure 3-8, enables you to display and edit the simulation 





kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkk 


INTERMEDIATE LEVEL COCOMO MODEL INPUTS 


for BASE.DAT 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


RELY (Required software reliability) 
ESC - EXIT 


Very Low; 0.75 


Low; 0.88 
Nominal; 1.00 
High; 1.15 
Very High; 1.40 





13. MODP: 1.00 
14. TOOL: 1.00 
15. SCED: 1.00 
16. Press [16 or 0] when entries are complete. 


Select Cost Driver and press [Enter]: 1 





Figure 3-6: Example of Cost Driver Menu 
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COCOMO MODE SELECTION 
ESC - EXIT 


1 - Organic 
2 — Semi-detached 
3 - Embedded 


Select the appropriate mode and press enter: 





Figure 3-7:  COCOMO MODE Selection Menu 


model inputs as well as the project size inputs required by 
COCOMO. By selecting the number of the variable you desire to 
change and pressing enter, you may now edit any previously 
entered variable. A single line display will appear on the 
Screen using the full name of the variable instead of the 
acronym displayed on the previous screen. Enter the new float 
or integer value and press enter. This returns you back to 
the full screen shown above. There is no limit on the number 
of changes or updates you wish to make. When all of the 
variable values are correct, type 12 and press enter to 
continue. 

After exiting the display/edit screen, the program 
returns to the Select New Project Menu, as shown in Figure 
3-9. You may select Display/Edit to review or edit the new 
project as described above, Run Dynamic Simulation, or Quit 
menu and return to the Initial Menu. The Run Dynamic 


Simulation selection initiates the execution of the dynamic 
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kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


MODEL INPUTS for BASE.PRF 


Organic Mode 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


l. INUDST: 0.500 8. (1) TPFMQA[1]: 0.150 
2. ADMPPS: 1.000 (2) TPFMQA[2]: 0.150 
3. HIREDY: 40.000 (3) TPFMQA[3]: 0.150 
4. AVEMPT: 1000000.000 (4) TPFMQA[4]: 0.150 
5. TRPNHR: 0.200 (5) TPFMQA[5]: 0.150 
6. ASIMDY: 80.000 (6) TPEMQA[6]: 0.150 
7. (1) TNERPK[1]: 25.000 (7) TPFMQA[7]: 0.150 
(2) TNERPK[2]: 23.860 (8) TPFMQA[8]: 0.150 
(3) TNERPK[3]: 21.590 (9) TPFMQA[9]: 0.150 
(4) TNERPK[4]: 15.900 (10) TPFMQA[10]: 0.150 
(5) TNERPK[5]: 13.600 9. DEVPRT: 0.800 
(6) TNERPK[6]: 12.500 10. DSIPTK: 59.894 
ll. Size of project (KDSI): 64 
12. EXIT and SAVE changes. 
Enter number of parameter you wish to change: 
Figure 3-8:  COCOMO Input Display Screen 
simulation model. The type equipment you are utilizing 
determines how long the simulation will take to run. The 


simulation can take from approximately one minute, with a PC 
equipped with a co-processor, to approximately 15 minutes, 
with a PC not equipped with a co-processor. Once running, the 
only way to exit from the simulation model is to press CTRL- 
Break. 

After the simulation model has run to completion, an 


Output Selection menu is generated. You may select to display 
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NEW PROJECT MENU 


1 - Display/Edit. 


2 — RUN Dynamic Simulation. 
3 - QUIT menu. 


Select with number or cursor and press [ENTER]. 





Figure 3-9: NEW PROJECT MENU 


the results on screen, print the results, or exit the program 
as shown in Figure 3-10. The results will remain resident in 


the  REPORT.OUT file until the program is run again. 


Therefore, if you select exit you still have access to the 
results. Selecting Display scrolls the results on to the 
Screen. Selecting Print displays a request for the printer 


you wish to utilize. Either enter the printer or press return 


to print the results on your default printer. 


REPORT FORMAT CHOICE 
l - Display results 
2 — Print results 

3 — Bxit 


Enter one of the above: 





Figure 3-10: REPORT FORMAT SCREEN 
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2. Load Project from Disk 

If you select Load project from disk, the main menu 
will be displayed, as shown in Figure 3-11. The Main menu 
gives you four selections to choose from. These include, List 
projects on disk, Select desired project, Run Dynamic 
Simulation, or Quit menu. Selecting List will display all of 
the project data profiles that have been previously saved in 
the current directory. At the bottom of the list, where 


requested, enter the file name of the project data profile you 





MAIN MENU 


LIST projects on disk. 
SELECT desired project. 
RUN Dynamic Simulation. 
QUIT menu. 


m WN 
i d 


Select with number or cursor and press [ENTER]... 


Figure 3-11: MAIN MENU for Single Project Environment 


wish to utilize. An example of this screen is displayed below 
in Figure 3-12. 

The display edit screen will automatically be 
displayed next. The screen is shown in Figure 3-8. You may 
edit the data as described above or continue using the 


resident data. If the data profile was saved in the 
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intermediate COCOMO model, the Cost Driver Input screen will 
be automatically displayed. This screen, previously shown in 


Figure 3-5, may also be updated as previously discussed. 





Data file listing: 


BASE . PRF 
HALF . PRF 


:> Enter project filename: 





Figure 3-12: Current List of Files Screen 


After either one or both of these screens have been 
displayed, the Select Current data profile for COCOMO menu is 
displayed. This menu, shown in Figure 3-13, allows you teo 
select either the Basic or Intermediate model for COCOMO 
calculations. This flexibility allows the user to switch 
between COCOMO models no matter what profile had been 


previously saved. 


Current data file is for the Basic COCOMO 
(Select one of the following) 


1 - CONTINUE Basic COCOMO Model 
2 - Intermediate COCOMO Model 


Select the model you wish to use and press enter 





Figure 3-13: Select COCOMO Model Menu 
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You may also change the mode, as discussed above, 
using the COCOMO Mode Selection menu, previously shown in 
Figure 3-6, which is displayed next in this part of the menu 
hierarchy. 

The next menu, Figure 3-14, is the Saving Files menu. 
You can save changes to a datafile under a new name, which 
ensures the original data remains unchanged, or you may save 
changes under the same name for updates to the original 
datafile. After completion of this step, you return to the 
main menu where you may restart the same process again or quit 


the menu. 


SAVING FILES 
(Select one of the following) 


l - SAVE changes under Same Name 
2 — SAVE changes under New Name 


Select the model you wish to use and press enter: 





Figure 3-14: SAVING FILES Menu 


Selecting SELECT Desired Project displays a single 
line request for a datafile input. This eliminates the need 
to display the list described above. 

The Run Dynamic Simulation selection initiates the 


dynamic simulation model for the single project environment. 
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There is no user interface during the simulation, but as shown 
in Figure 3-10 above, the simulation concludes with a screen 
requesting the type of output you would like. Procedures for 


output are also discussed above. 


G. OPERATING SYSTEM IN TWO PROJECT ENVIRONMENT 

The two project environment menu hierarchy is almost 
identical to the single project environment. The basic 
difference between the two environment menu structures is that 
you must enter data for two projects instead of one. The 
repetitiveness of the menu hierarchy is to provide consistency 
and ease of use for the user. For example, the Main Menu for 
the Two Project Environment, shown in Figure 3-15, gives you 
four possible selections to choose from. They include, Select 
Project 1 from disk, Select Project 2 from disk, Run Dynamic 


Simulation Model, or Quit menu. For both project selections, 


MAIN MENU 


- SELECT Project 1 from disk. 
— SELECT Project 2 from disk. 
— RUN Dynamic Simulation. 

— QUIT menu. 


Select with number or cursor and press [ENTER]... 





Figure 3-15: MAIN MENU for Two Project Environment 
data file profiles are listed, and then followed by a request 


for the file you wish to use. The program will not allow you 
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to select Run simulation Model until you have entered both 
projects as shown below. This is also true if you were 

You have not selected Project 1 or Project 2. 

Both projects must be selected to run simulation. 

Press any key to continue......... 
entering new projects. However, the menu structure does allow 
you to select a project from disk and then go back and enter 
the other project as new. 

The main difference between the two environments is 
demonstrated when the Run Simulation is selected. In the 
single project environment, the simulation model is 
immediately initiated. In the two project environment, there 
iS a series of questions that must be answered prior to the 
initiation of the simulation model. These questions are shown 
m Figure 3-16. 

This part of the model allows the user to make adjustments 
to the actual model process. In the two project environment, 
an iterative loop is built into the model structure which 
automatically updates the actual results of the simulation 
model into new estimates. The system then reruns the 
simulation process with the new estimates. Without knowing 
how this automatic process will affect certain variables in 
the simulation, especially regarding productivity, adjustment 
factors have been included to allow the user the ability to 


input increased percentages as safety factors or input reduced 
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The following entries are percentages used to prevent the model 

from building too much slack into the effort variable in the project. 
In essence these factors simulate the managers responsibility not to 
let the productivity lag. 

Enter the Effort adjustment factor in project 1 as a percent: 1 
Enter the Effort adjustment factor in project 2 as a percent: 1 
Enter the Schedule adjustment factor in project 1 as a percent: 1 
Enter the Schedule adjustment factor in project 2 as a percent: 1 
The following entries allow you to choose the accuracy level and 
limit the number of loops the model will run before completion. 
Enter the accuracy level for Effort as a percent: .01 


Enter the accuracy level for Schedule as a percent: .01 


Enter the limit of the maximum number of loops the model will do: 2 





Figure 3-16: Control Variable Questions 


percentages to prevent the system from reducing productivity 
in areas where there should be little change. If you wish to 
run the simulation in a nominal mode, or without adjustment, 
enter a 1.0 for each of the four adjustment factors. Entering 
a 1.0 is equivalent to running the model at a 100$, entering 
.95 is equivalent to running the model at 95$, and entering 
1.1 is equivalent to running the model at 110$. The above 
percentages refer to the percent of the effort or schedule 
estimates which will be entered into the simulation during the 
iterative loop process. In the nominal mode, the output or 


actual results of the simulation is used to update the 
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productivity and as new estimates to be re-entered into the 
simulation model for the next iteration. The other three 
entries refer to the accuracy of the results. 

Two entries request the error rates of the effort and 
schedule. This is a calculation of the percent difference 
between the estimates and the actual results. For example, if 
you enter a 0.05 for the effort error rate input, the 
iterative loop will continue re-running the model until the 
estimated effort going into the simulation model and the 
actual effort result from the model has an error rate of less 
than or equal to 0.05. Error rate is the difference between 


the estimated cost and the actual cost divided by the actual 


cost. The last entry allows the user to limit the number of 
loops the model will run. This is necessary if the error 
rates entered by you are not achieved by the model. The 


limitation for the number of iterations will prevent an 


endless loop environment. 


H. RESULTS AND REPORTS 

The results of this model display the estimated and actual 
values of effort, schedule, and nominal productivity. The 
effort and schedule relationships are represented by error 
rate calculations. In the single project environment there is 


one line of data in the output, as shown below. 
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X c oc e c e o e e oe ex X* X** *REPORT . OUT * * ooo o ooo oco o o o o e o o e eo 


Estimated Actual Percent Estimated Actual Percent 
man-days man-days Error Schedule Schedule Error 


4113.13 4108.86 0.00 301.60 305.00 0.01 


**** This data is available in REPORT.OUT ***x 
**** Each time the model is run REPORT.OUT will change **** 


3 e eo oe ee o o o oc oe e e ec o eoe eo e de o c ce o e o e e de e e e e e e ek 
Single Project Environment 


In the two project environment, after each iterative loop 
Cycle, the output consists of two lines of data, one for each 
project. A single iteration output is shown below. The 
results of each run are stored in to a file called REPORT.OUT. 
The results in this file remain memory resident only until the 
model is re-initiated using the RUN command from the DOS 


prompt. 


SISZIIIIIIIIIIIIIIIIIITIIj-3e:(JSUpLLEAILIIIZIIZIZIIIIIIIIIIIITIIILI. 


PERCENT PERCENT PRODUCTIVITY 

TOTMD1  CUMMD1 ERROR TDEV1  TIMEl1 ERROR OLD NEW 
3593 3591 0.00 348 348 0.00 59.89 59.92 
PERCENT PERCENT PRODUCTIVITY 

TOTMD2  CUMMD2 ERROR TDEV2  Tl1ME2 ERROR OLD NEW 
3595 3591 0.00 348 348 0.00 59.89 59.92 


**** This data is available in REPORT.OUT ***xx 
**** Each time the model is run REPORT.OUT will change **** 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
Two Project Environment 
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IV. TEST AND EVALUATION OF SYSTEM 


A. PROJECT DEFINITION 

This chapter will provide a description of the algorithms 
used in determining the COCOMO estimations and the nominal 
productivity. It will also compare the results of baseline 
data used by the model with the results of the COCOMO 
calculations using long hand methodology. This combined model 
was developed as a tool to aid in the learning process of 
Software development project management. The coupling of 
these different models and programs has created an environment 
for an effective and efficient way to study a project over 
time with the ability to adjust certain variables and conduct 
sensitivity analysis in determining the variables which are 
most sensitive to the overall project. The remainder of this 
chapter will look at two test cases and an experiment to 
ensure that the calculations in the front-end programs are 
accurate, to illustrate an example of sensitivity analysis, 
and to examine an example of the two project environment 
iterative loop process. All of the following tests and 
examples were based on data provided in the book by Abdel- 


Hamid and Madnick (1991). 
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l. Test 1 
The following test was run with baseline data to prove 
the accuracy of the front-end portion of this model in the 
Single project environment. The data used for this test is 


displayed in the input display screen, shown in Figure 4-1. 





kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 


MODEL INPUTS for BASE.PRF 


Organic Mode 
3e e e e e Ae e ok Ae Ae Ae Ae Ae He e de e Fe e e Ae e e ke e e ke ke k k k k k k k k k k 


1. INUDST: 0.500 8. (1) TPFMQA[1]: 0.150 
2. ADMPPS: 1.000 (2) TPFMQA[2]: 0.150 
3. HIREDY: 40.000 (3) TPFMQA[3]: 0.150 
4. AVEMPT: 1000000.000 (4) TPFMQA[4]: 0.150 
5. TRPNHR: 0.200 (5) TPFMQA[5]: 0.150 
6. ASIMDY: 80.000 (6) TPFMQA[6]: 0.150 
7. (1) TNERPK[1]: 25.000 (7) TPFMQA[7]: 0.150 
(2) TNERPK[2]: 23.860 (8) TPFMQA[8]: 0.150 
(3) TNERPK[3]: 21.590 (9) TPFMQA[9]: 0.150 
(4) TNERPK[4]: 15.900 (10) TPFMQA[10]: 0.150 
(5) TNERPK[5]: 13.600 9. DEVPRT: 0.800 
(6) TNERPK[6]: 12.500 10. DSIPTK: 59.894 


11. Size of project (KDSI): 64 
12. EXIT and SAVE changes. 


Enter number of parameter you wish to change: 


Figure 4-1: Input Display Screen 


Most of the variables are direct inputs to the simulation and 
calculations are not required. The COCOMO calculations vary 
in nature between the basic and intermediate models. There 


will be one example of each in test one. 
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a. Basic COCOMO 

Basic COCOMO uses a simple algorithmic methodology 
to determine the effort and schedule estimations for project 
development. There are several inputs necessary to accomplish 
this. Siew ites ise ene size enery; which is inputted as 
thousand decision source instruction,  KDSI. The other 
necessary input is a choice between the different modes of 
COCOMO: organic, semi-detached, and embedded. Each mode has 
its own series of equations for estimation calculations. 
Although the organic mode was used in this test, all of the 
equations for the different modes are displayed in Table 4-1 
below. 

The first equation uses KDSI to calculate the 


estimated effort variable. The second equation then uses 


TABLE 4-1: BASIC COCOMO EQUATIONS 
ee E e 


Basic COCOMO Equations 


Mode Effort Schedule 
Organic MM = 2.4(KDSI) ' TDEV = 2.5(MM)°* 
Semidetached MM = 3.0(KDSI)'"” TDEV = 2.5(MM)"= 
Embedded MM = 3.6(KDSI] 2 TDEV - 2.5(MM)"* 





the effort variable to determine estimated schedule. The 
equations from Table 4-1 above represent results calculated in 
man-months for effort and months for schedule. In the 
Simulation model, the results are calculated in man-days for 
effort and days for schedule. The conversion to man-days is 
completed by multiplying man-months by 19, the standard number 
of actual workdays in a month (Boehm, 1981). The schedule 
estimation must be calculated using man-months for effort to 
determine the number of months and then multiply the months by 
19. The equations below depict an example of the COCOMO long 
hand calculation results utilizing the baseline data. 

The printout below, REPORT.OUT, shows a typical 


output from the single project environment. Estimated man- 


Example 1: Basic COCOMO 
MD = 2.4(64)' X 19 
= 189.1 X 19 
3593 


2.5(189.1)? X 19 


18.3 X 19 
348 


TDEV 


days is the value calculated using the COCOMO algorithms for 
effort necessary to complete the project. The actual man-days 
is the value calculated by the dynamic simulation model. This 


value represents what the actual effort would be to complete 
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the project after all of the project management policies were 
incorporated into the COCOMO estimate. Estimated Schedule is 
the value calculated using the COCOMO algorithms for the time 
in days it takes to complete the project. The actual schedule 
is the value calculated by the dynamic simulation model. This 


value represents the actual time it would take to complete the 


kkkkkkkkkkkkkkkkkkkkkkKk REPORT. .OUT**ž*žkkkkkkkkkkkkkkkkkkkkkkkkk 


Estimated Actual Percent Estimated Actual Percent 
man-days man-days Error Schedule Schedule Error 


3592.97 3590.89 0.00 348.21 349.00 0.00 


**** This data is available in REPORT.OUT ****x 
**** Each time the model is run REPORT.OUT will change ****x 


3 e e ee eee ee eee ehe eoe eee eoe eee eoe eoe eoe eee eG A e e e x A A x A x Xx 


project after all of the project management policies were 
incorporated into the COCOMO estimate. 

Comparing the long hand calculations above with the 
results generated by the combined model in REPORT.OUT proves 
that the algorithms within the model provide the simulation 


with the correct estimates. 


b. Intermediate COCOMO 
The intermediate model works on the same general 
principles as the basic model. The equations for the schedule 
calculations are identical. The differences in the two models 


are reflected in the differences between the equations for 
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effort estimation. First, the coefficients are different. 
The coefficients in the intermediate model must account for 
the aggregate effect of the effort multipliers (Boehm, 1981, 
DAA There are 15 effort multipliers or cost drivers 
which are multiplied by one another to determine the effort 
adjustment factor (EAF). The Intermediate COCOMO equations 
are displayed in Table 4-2. 

Chapter III described how the values for each cost 
driver is reached. The EAF is incorporated into the effort 
equation through direct multiplication. The equations below 
show an example of how EAF is calculated and applied to the 


effort equation in the intermediate COCOMO model. 


TABLE 4-2: INTERMEDIATE COCOMO EQUATIONS 
een =~ a 





Intermediate COCOMO Equations 
Mode Effort Schedule 
Organic MM = 3.2(KDSI)'%x EAF = TDEV = 2.5(MM)°™* 


Semidetached — MM «30(KDSI) "x EAF . TDEV -2.5(MM) 


032 
Embedded MM *2.8(KDSl) ?x gar TDEV = 2.5(MM) 


EAF - Effort Adjustment Factor (CD. * CD * CD 


“CD. ) 
where CD is one of 15 Cost Drivers ^ * 


gm 


54 


The cost drivers tend to effect the overall effort 
cost the same (i.e., the cost either increases or decrease as 
a cost driver rating goes from very low to very high). For 


example, if you rate the software reliability of a project 


Example 2: Intermediate COCOMO 


EAF = 0.75 x 1.06 x 1.08 x 1.00...... x 1.00 = 0.8586 


MD - 3.2(64) ^9 X 19 X 0.8586 
- 2524 X 19 X 0.8586 


- 4113 

a 0.8586 ., 
MM = 252.1 X S552 = 200.4 
TDEV = 2.5(200.4)°* X 19 X 0.85 


18.7 X 19 X 0.85 
302 


very low it will cut the effort cost by 25%, but if you rate 
the programmers capability very low it will increase the cost 
of the project by 42$. This is true for all the cost drivers 
except for the required development schedule cost driver. As 
the rating goes from low to high, the effort multiplier 
decreases until the rating becomes nominal (1.00), and it 
increases as the ratings become higher. Intuitively, this is 
true because it will take more effort to either compress or 
expand the work schedule. The schedule cost driver does not 
affect the algorithm for determining the effort but does 
affect the algorithm to determine schedule. If you increase 


the effort by compressing or expanding the schedule and use 
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that calculated value of effort in the schedule equation, the 
schedule will always increase in time. This is not true if 
you have increased effort to compress the schedule. 
Therefore, to calculate the schedule you must divide the 
effort by the schedule cost driver (also divide by 19 if 
working in man-days), and insert the adjusted effort in the 
schedule equation. Then multiply that number by the 
associated percentage for each rating level. For example, the 
effort multiplier for low is 1.08 and its associated 
percentage 85$. Multiplying by .85 would then account for a 
15$ compression in schedule. You must also multiply by 19 to 
determine schedule in days. The equations in the above 
example represent long hand calculation results using 
intermediate COCOMO. Comparing these results to those shown 
from the computer results in REPORT.OUT below, proves that the 
intermediate COCOMO algorithms within the model provide the 


Simulation with correct and accurate estimates. 


kkkkkkkkkkkkkkkkkkkkkkkkK REPORT. OUTřžřžkkkkkkkkkkkkkkkkkkkkkkkkk 


Estimated Actual Percent Estimated Actual Percent 
man-days man-days Error Schedule Schedule Error 


4113.13 4108.86 0.00 301.60 305.00 0.01 


**** This data is available in REPORT.OUT ***x* 
**x** Each time the model is run REPORT.OUT will change **** 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
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2. Test 2 

The following test was run with baseline data to prove 
the accuracy of the front-end portion of this model in the two 
project environment. The data used for this test is displayed 
in Figure 4-1 and is the same data used in the previous test. 
As in the first test, most of the variables are direct inputs 
to the simulation and calculations are not required. This 
test for the two project environment was conducted using the 
same input data for both projects. The projects were also 
treated as independent projects using Basic COCOMO. With no 
interaction between the projects, the results of each project 
in this test should have been identical with the test results 
from the project run in the single project environment. 
Comparing the results from the equations in Example 1 above to 
those shown from the computer results in REPORT.OUT below, 
proves that the COCOMO algorithms within the model provide the 


Simulation with correct and accurate estimates. 


kkkkkkkkkkkkkkkkkkkkkkkkKk REPORT. .OUT*žžkkkkkkkkkkkkkkkkkkkkkkkkk 


PERCENT PERCENT PRODUCTIVITY 

TOTMD1 CUMMD1 ERROR TDEV1 TIME1 ERROR OLD NEW 
3593 3591 0.00 348 348 0.00 59.89 59.92 
PERCENT PERCENT PRODUCTIVITY 

TOTMD2 CUMMD2 ERROR TDEV2 T1IME2 ERROR OLD NEW 
3593 3591 0.00 348 348 0.00 59.89 59.92 


**** This data is available in REPORT.OUT ***** 
**** Each time the model is run REPORT.OUT will change **** 


s e e fe fe ee fe eoe fe fe eoe e e e fe eee fe efe e fefe fe e e he he e He fe fe e eoe e e fe ee efe ce e e e e c x x x& 
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3. Test 3 

The following test was run with baseline data to prove 
the accuracy of the nominal productivity algorithms for input 
to the simulation model within the front-end portion of this 
model. This test was run in conjunction with Test 2. The 
results for nominal productivity are displayed as part of the 
output data in the REPORT.OUT file shown above. 

There were two sets of algorithmic calculations that 
required testing. The first part of the test was to prove 
that the initial algorithms were correct, and the second part 
of the test was to prove that the nominal productivity 
dynamically updates as the variables associated with it are 
updated. The following set of equations are required to 


determine nominal productivity: 


Nominal Productivity Equations 


DP = (1-(%MDT + %MDQA + %MDR)) x MD 





ADP - Actual Development Productivity ME) 

DP - Devetopment Productivity D- MD 

NP - Nominal Productivity 

MD - Man-days 

D-MD - Development Man-days Staff Size = MD/19 
%MDT - *& MD for Tests TDEV/19 


%MDQA - % MD for QA 


%MDA - % MD for Rework Stati Size is entered Into Table 4-2 to get 


Communication Overhead 





ADP 


NP € ——————————— 
0.6 x (1 - Comm overhesd) 


58 


Table 4-3, displayed below, is necessary to retrieve 
the value for communication overhead from the average staff 
size input. In many cases, you must interpolate for proper 
communication overhead values. 

TABLE 4-3: STAFF SIZE MO 


COMMUNICATION OVERHEAD 
| ei im etu it E a a t 


Communication 
Staff Size Overhead 





NOTE: 30 eppiles 10 greeter than 
30 as weil. 


Nominal productivity is affected by many variables. 
The first variables that you need are inputs for percent of 
man-days for tests, percent of man-days for quality assurance 
(QA) and percent of man-days for rework. All three of these 
variables are critical to the success of the project, but are 
not considered an input to the process. 


The development of software systems involves a series of 
production activities where opportunities for injection of 
human falliabilities are enormous. Errors may begin to 
occur at the very inception of the process where the 
objectives...may be erroneously or imperfectly specified, 
as well as [errors that occur in] later design and 
development  stages....Because of human inability to 
perform and communicate with perfection, software 
development is accompanied by a quality assurance activity 
(Pressman, 1987, p. 467). 
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Software testing is a critical element of software 
quality assurance and represents the ultimate review of 
Specifications, design, and coding. Testing in some instances 
is equivalent to 40 percent of the total project effort. 
Rework is the third critical element utilizing a percentage of 
project effort to correct errors located by quality assurance 
and testing (Pressman, 1987). These three variables are 
entered directly into the model. They are used for 
determining Development Productivity in man-days as shown. 

DP = (1 - (0.22 + 0.11 + 0.14) x 3593 

DP = 1904 man-days 

Development Productivity is divided into the size of the 
project for the determination of the Actual Development 
Productivity. This productivity is defined as the outputs 
produced by the process divided by the inputs consumed by the 
process(Boehm, 1981, pp. 44). Since a certain percentage of 
effort must be expended on testing, quality assurance, and 
rework, it makes sense that Actual Development Productivity 
only account for the effort expended on the actual 
development. 

ADP = 64000/1904 = 33.61 DSI/man-day 

The next step is to divide the effort in man-months by 
the schedule in months, which provides the average staff size 
for the project. Entering this value into Table 4-2 you wiil 


Staff Size = 189.1/18.3 = 10.3 
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be able to extract the Communication Overhead. The larger the 
staff size the more communication problems and breakdowns a 
progect will incur. Therefore, a percentage of the 
communication overhead also affects productivity. Nominal 
productivity is determined through the division of the Actual 
Development Productivity by the multiplying the communication 
overhead percent by 0.6. It has been determined that 
approximately 60 percent of a single work day is utilized for 
technical development, which accounts for the 0.6 factor 
applied in the equation (Ghezzi, 1991, pp. 420). 
NP = 33.61/[0.6 x (1 -— 0.0645) ] 
NP = 59.88 

Nominal productivity consists of many variables which 
continually change values throughout the process of this 
model. As the effort changes, the schedule changes, and as 
the schedule or the effort change, the staff size changes, 
which causes the communication overhead to change. The 
equations listed below shows, step by step, how nominal 
productivity changes dynamically with changes in the effort 
and schedule variables. Comparing the new and old 
productivity values from the computer results in REPORT.OUT 
from Test 3 to the results from the above equations proves the 
algorithms in the model provide the simulation with the 
correct nominal productivity, and that Nominal Productivity is 
a dynamically changing variable throughout the simulation 


process. 
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Dynamic change in NP 


DP = (1 - (0.22 * 0.11 * 0.14) x 3591 





DP = 1903 

ADP = 33.63 

Staff Size - — 59 — . 103 
33.63 

NE swore’ (elosss) aaa 


4. Experiment 

This experiment was conducted to test the sensitivity 
of just one of the many applications and advantages of 
utilizing a coupled modeling system. The same data was used 
for both projects as in Test 3 above. 

Assuming the original COCOMO inputs for cost and 
schedule were accurate, the simulation model ran in the two 
project environment with a work force ceiling of 15 people. 
To run this experiment, there were several adjustments that 
were made to both models. The simulation model was adjusted 
to allow for interaction between the two projects, as not to 
run independently of each other as in Test 3. The other model 
was adjusted to include the ability to enter the work force 


ceiling variable and the start dates for both projects. 
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The work force ceiling is an attribute of the average 
staff size. For both of these projects in this experiment, the 
average staff size was approximately 10. Therefore, on the 
average there would be only 20 people working on both projects 
at any single point in time. The work force ceiling of a 
project is the total number of people that management will 
allow to work on a project at any particular time. 

In many software companies resources are shared 
between projects. This was one of the themes in the 
experiment. By reducing the work force ceiling to 25 percent 
of the combined total average staff size, or 15, the 
Simulation is forced to create an environment of priorities 
which would ideally return the minimum effort required to 
complete both projects in the shortest and most effective time 
frame. 

The iterative loop process in this model compares 
effort estimated to effort actual and schedule estimated to 
schedule actual. Prior to beginning the initial simulation 
run, the user must provide inputs for the desired accuracy 
levels between the estimates and the actual results for effort 
and schedule. For example, inputting 0.05 would set the 
effort error level of the estimate to 5% of the actual, where 


the error rate! is as follows: 


* For this study the standard format for Error Rate is 
the absolute value [ABS(x)] of the Estimate minus the Actual 
divided by the Actual. 
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Error Rate - ABS(Estimate - Actual) / Actual 
It also requires an input to restrict the number of 
iterations. This would prevent the possibility of an endless 
loop if the model could not reach the accuracy level 
requested. After the conclusion of each simulation run, the 
iterative loop process evaluates the results to determine if 
they meet user requirements for accuracy. If not, then the 
effort, schedule and productivity variables are adjusted and 
re-entered into the simulation as new estimates. If they are, 
then the program is terminated and the results are saved in 
REPORT. OUT. 

The start date variable for each project was included 
to allow for different start dates of projects. This can 
determine how one project in a later phase of project 
development is affected by another project, just beginning, 
and are required to share resources. 

For this experiment, the work force ceiling used was 
l5 This experiment was run four times changing the start 
dates each time. Project 1 always started at time zero, while 
project 2 was zero for the first run, 100 for the second, 200 
for the third and 300 for the last run. There are several 
ways the results are displayed. The desired accuracy level 
used was l percent for effort and 1 percent for schedule. For 
the experiment run with the same start dates, Figures 4-2 and 
4-3 show the Effort vs. number of Iterations of actual and 


estimated effort from both projects and the Schedule vs. 
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number of Iterations of actual and estimated schedules from 


both projects, respectfully. 
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Figure 4-2: Trend in Effort over a Series of 
Iterations 
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Figure 4-3: Schedule Trends over a Series of 
Iterations 
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Figures 4-4 and 4-5 represent the same comparisons as 
above; however, the start dates are no longer the same in this 


test. The start date in the second project is now 100 days 


later than the first. 
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Figure 4-4: Effort Trends over a Series of 
Iterations with Different Start Dates 
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Figure 4-5: Schedule Trends over a Series of 
Iterations with Different Start Dates 
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Figure 4-6 and 4-7 show how the percent error changes 
over the number of iterations for the effort and schedule of 
both projects. Both projects of Figure 4-6 had the same start 
dates. Figure 4-7 had the second project start 100 days after 


the first. 
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Figure 4-6: Error Rate Trends 
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Figure 4-7: Error Rate Trends with Different Start 
Dates 
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The third and fourth run of this test incremented 
project 2 start dates by 100 days per run. In both cases, for 
this size project, sharing of resources with the second 
project start date 200 days or later had no significant effect 
on either project. There are many distinguishable trends that 
can be identified from the above graphs. Error Rate analysis 
shows that as the number of iterations are increased, the 
better the percent error rate. The error rate stabilized 
after four iterations and continued to approach zero. Ihe 
effort and schedule related graphs show an expected increase 
in costs due to the sharing of resources. However, in all 
cases, even with the variable start dates, the estimated and 
actual costs tended to approach one another over the number of 
iterations. In addition, there was also a tendency for the 
costs to plateau or level off. This could lead to providing 
an upper cost limit on software development costs. Chapter 


V will discuss these issues in greater detail. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 

The primary objective of this thesis was to investigate 
the utility of coupling the COCOMO model with a Systems 
Dynamics Model of Software Project Management. It was 
expected that a combined model would allow for a richer and 
more complete set of cost drivers, thus increasing software 
cost estimation accuracy. The premise was coupling a model 
that quantified estimation based solely on objective 
variables, with a dynamic simulation model, which incorporates 
subjectivity into project management issues. This coupling 
would create an environment which not only addresses the 
necessary objective variables but also addresses many 
subjective variables of project management that tend to have 
an enormous impact on the cost and schedule estimates of a 
project. It was also expected that a coupled model would 
provide a means for more extensive sensitivity analysis. 
Another main objective of this thesis was to investigate the 
opportunity to optimize cost estimation procedures in a two 
project environment. 

As a first step a simple "C" program was designed for 
basic  COCOMO to ensure that an interface could be 


accomplished, i.e., an algorithmic model could be coupled with 


69 


a dynamic simulation model. After a successful initial test, 
four additional "C" programs were designed as well as 
expanding the first to include the ability to choose between 
the basic or intermediate COCOMO models. The programs are 
explained in detail in Chapter II. There were two separate 
environments incorporated into the design. 

The single project environment was developed to study 
independent projects. The results of the tests in Chapter IV 
proved that the COCOMO algorithms are correct in both the 
basic and intermediate COCOMO models. The development of this 
type of system lends itself to the ease of variable entry. 
Whether the variable is from COCOMO or the simulation model, 
it is an ideal environment for studying the sensitivity of 
results to changes of a single variable on the entire project. 

The two project environment was developed to incorporate 
the use of sensitivity analysis to investigate the opportunity 
to optimize cost estimation in an environment of shared 
resources. The experiment conducted in Chapter IV established 
the work force as the shared resource and limiting factor. 
The experiment was run four times with the start date of the 
second project being adjusted by 100 days each run. For this 
experiment, the results were quite conclusive that over a 
series of iterations the adjustments in a shared resource 
environment cost estimation and schedule estimates could be 
refined. This is apparent from the graphs of Chapter IV. 


Comparison of error rates clearly shows that after four 
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iterations the error rate not only remained below five 
percent, but continued to decrease after each additional 
iteration toward an optimal zero percent error. In the other 
two series of graphs, the displays depict the estimates vs. 
actual results. In all cases, after several iterations, there 
is a trend of convergence between estimate and actual costs. 
This trend, however, does not occur without additional cost in 
effort and schedule. Initially, the additional costs were 
fairly significant, but as the number of iterations increased, 
the results not only converged but they also tended to level 
off. This could give a project manager a much more realistic 
estimate of project cost and also provide top management with 
fairly realistic high-low estimate of total project cost. 
The experiment also examined the sensitivity of start 
dates in the two project environment. With the remaining 
variables constant, the start date of project 2 was adjusted 
to 100 days after the start date of project 1. Two additional 
runs under the same conditions were also conducted. Each 
additional run increased the start date of project 2 by 100. 
Therefore, the fourth run was to demonstrate the effects of 
sharing resources with a project starting 300 days after the 
start of another project. The results indicate that the cost 
of sharing resources is less for two projects starting the 
same date than for two projects starting 100 days apart. The 
impact seemed to be greater on the first project because of 


the need to reallocate less resources over the same work 
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requirements. Another interesting result was that after 
approximately two thirds of project 1 was completed, sharing 
resources no longer had a significant impact on either 
project. These results conclude that it is easier to manage 
a project with a known set of resources from the beginning 
rather than having to shift personnel and priorities one third 
of the way through a project. This is just one example of how 
a coupled model can utilize sensitivity analysis to study and 
understand the many aspects and variables associated with 
Software Project Management. 

Using COCOMO and defining its objective variables provide 
cost estimations which tend to fall short by itself. By 
studying and learning how the subjective variables affect the 
system can lead to not just an improved understanding of 
project management, but to the ability of narrowing the 


percent error in cost estimation currently plaguing the 


software industry. For example, COCOMO is used to provide 
initial estimates to the simulation model.  COCOMO has only 
been accurate to a point. With respect to historical model 


accuracy, the Basic COCOMO estimates were within a factor of 
1.3 of the actual cost only 29% of the time, and within a 
factor of 2-of the actual cost only 60% of the time (Boehn, 
1981, p. 114). Applied to this experiment, that would infer 
that the actual project results would have been between 4670 
and 7186 man-days for effort only 29% and 60% of the time, 


respectively. From the results in chapter four, this coupled 
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model, utilizing an iterative loop process, continually 
addressed subjective variables not incorporated into COCOMO to 
establish what appears to be very accurate results. In 
essence the coupled model accepts COCOMO estimates and then 
incorporates the subjective influences of project management 
to eliminate the need for a "safety factor" to account for the 
factors 1.3 to 2 of the actual produced by COCOMO. This 
experiment produced effort estimates within 13% of COCOMOs 
Original estimates and schedule estimates within 41% of COCOMO 
estimates. The significant difference in schedule is due the 


sharing of resources. 


B. RECOMMENDATIONS FOR FUTURE RESEARCH 
Several areas are available for conducting follow-on and 
future research. Several prominent topics are: (1) refining 
the current system, (2) conducting experiments using the 
current system to evaluate the variables most sensitive to 
project development to define a more complete set of cost 
drivers, and (3) utilizing the model in an actual project 
environment to study whether the system will optimize cost 
estimation in a two project environment. 
l. Refining the Current System 
Since one of the purposes of this thesis was to 
optimize cost estimation in a two project environment, the 
programs developed were focused on the ability to accomplish 


this. A possible follow-on research would be to enhance the 


73 


current system with the ability to change variables between 
iterations, thus giving the user greater flexibility and 
control in conducting experiments. 
2. Use of Current System for Sensitivity Analysis 
Experiments 
This thesis was developed to create an avenue to study 
and establish a richer set of cost drivers. The tool now 
exists to use sensitivity analysis to determine the variables 
that are most sensitive to project development. This would be 
an obvious next step for a follow-on thesis topic. 
3. Determine Real World Advantages 
Laboratory experiments and use of historical data can 
lead to very conclusive results. However, since this model 
contains many subjective variables, among the countless number 
of actual variables which effect Software Project Development, 
the proof of the usefulness and effectiveness of this system 
cannot be determined until it is used by industry. This is 


the ideal experiment and test for follow-on studies. 
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APPENDIX A 


/* kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk kk */ 


ee Author: Richard W. Smith Advisor: Prof. Abdel-Hamid * */ 
/* * Program: Main Lang: C Xo 
/* * Used Shareware <windows.h> in project environment At 


EN KKHKHKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKAkKK kk kk * / 


/* This is one of 5 programs written and interfaced with the */ 

/* Dynamic Simulation Model. This particular program is a simple */ 
/* program that allows the user the ability to select the single */ 
/* project environment or the two project environment from a menu. */ 
/* Once the user selects this program is terminated. */ 


/* The following headers were used and needed to utilize the */ 
/* library functions used throughout this program. */ 


include «windows.h» 
#include <stdio.h> 


/* Declarations for the menu windows boarder and background */ 


int bat; /* border atrib */ 
"nt wat; /* window atrib */ 


/* The following are static structures developed to be */ 

/* used throughout the program in pop-up menus for various */ 
/* user selection requirements. The learning curve for */ 

/* the use of windows.h was considerable, however, once */ 

/* learned it is fairly simple to create menus. */ 


Static struct pmenu intelc50 - 
(0, FALSE, 0, 


2503, 

NES " INITIALIZATION OF PROGRAMS", O0, 

PEEG, " (Select one of the following)", O, 

4, 12, "1 - SINGLE Project Environment", 1, 

ENEI2, "2 = TWO Project Environment", 2, 

7, 3, "Select environment you wish to use and press enter:",0, 
go, 99, "",99 

l5 
WINDOWPTR w3; /* window to use */ 


void main() 


( 


int sel; 


/* bat is the boarder attribute for the pop-up window */ 
/* sets background to blue and boarder to white */ 

bat = v_setatr (BLUE, WHITE, 0,0); 
/* wat is the window attribute for the pop-up window */ 
/* sets background to blue and text to white */ 


mb 


} 


wat = v_setatr (BLUE, WHITE, 0,0); 


/* Introduction window is declared as w3 above and */ 
/* is opened and closed as if it were a file */ 


Glrscer (); 

wn nic (0% 

w3 — wn open(0,5,10,60,12,wat,bat); 
if(!w3) exit” 


wn printi (w3, n x c oe oo oe oe oe oe oe ode oe oec oe oe oe oe ceo oe oe oe oe oko oe oe oe o oe oo oe ooo oko ooo ooo Ax Xx X Xx Xxx x 
7 NIE 

wn printf(w3," Welcome to the coupling of An"); 

wn print f(W, COCOMO and a SYSTEMS DYNAMICS MODEL\n\n") ; 

wn printf (w3, n AA AA A A AA A A A AA A A AA AA AAA A A A A A AAA AA AAA A A ACA A Xx x 
n aa 

wn printf (w3," Programmed by Richard W. Smith & Tarek 

Abdel-Hamidininin"); 
wn printf (w3," Press [ANY KEY] to continue..."); 
v getch(); /* Stops the program and awaits any keyboard entry x / 


wn close (w3); 


Cirser (); 

/* Sets the pop-up window size and assigns a ststic structure */ 

/* for menu operation */ 

/* sel awaits an appropriate keyboard entry from the menu choices */ 


sel = wn _popup(0, 5, 10, 55, 10, wat, bat, Sintelc50,) TRUE)” 
switch (sel) /* case statement to direct remainder of coupled */ 


/* system */ 
{ 


case 1: 
exit (0); /* if selected, program exits to DOS for */ 
/* system call to INPUT1.EXE */ 
case 2: 
exit (1); /* if selected, program exits to DOS for */ 


/* system call to INPUT2.EXE */ 


} 


/* end program */ 
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APPENDIX B 


/* X ceo eo oe e eoe oe oe ok e oko oe eoo oe oe oko oe oe ooo eoo oe eoe ok oe oe ooo ooo oe oo o x A A xà kx x x x kx ox * / 


ZEN Author: Richard W. Smith Advisor: Prof. Abdel-Hamid  * */ 
/* * Program: Main Lang: C * x*x/ 
/* * Used Shareware «windows.h» in project environment a wr 


/* ok oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe ooo oe oe oe ooo oo x x 


/* This is one of 5 programs written and interfaced with the */ 

/* Dynamic Simulation Model. This particular program completes */ 
/* two tasks. First it accepts input variables for the dynamic */ 
/* simulation model and COCOMO acting as a front end for the  */ 
/* model in the single project environment. Then it makes all */ 
/* the necessary COCOMO calcuations for either the Basic or  */ 

/* the intermediate versions of COCOMO. */ 


/* The following headers were used and needed to utilize the */ 
/* library functions used throughout this program. */ 


#include <windows.h> 
#include <stdio.h> 
#include <math.h> 
#include <conio.h> 
#include <dir.h> 
#include <string.h> 


/* Prototypes for the functions which will be */ 
/* described below. sy 


Piacente list (void) ; 

poudemcdel in(float *,float *,int *,float *,int,char a[],float *, float 
me float); 

EM -ocomo in(float *,float *,int,char *); 

pore save(float *,float *,float *,char *,float,int *,int,float); 

pssdEEI!e prnt(float,float,int *,float *); 

float interp (float); 

float prod(float *,float,float,int *); 

Metameale(float *,int *,float *,float *, float, float, float); 

void initial (float *); 


/* Declarations for the menu windows boarder and background */ 


int bat; /* border atribute */ 
int wat; /* window atribute */ 


Pointer to file being used*/ 
FILE * textfile; 
ETET: fin? 
REXNEES*'. fout; 
FILE * fnew; 


WINDOWPTR w3; /* window declaration */ 
WINDOWPTR w4; /* window declaration */ 
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/* The following are static structures developed to be */ 


/* used throughout the program in pop-up menus for various */ 
/* user selection requirements. The learning curve for */ 
/* the use of windows.h was considerable, however, once */ 


/* learned it is fairly simple to create menus. */ 


static struct pmenu intelc - 
;, FALSE, 0, /* Must be FALSE */ 


(0 
l, 


3, 


/* The 1 initiates which row */ 
/* The 3 determines number of lines */ 
/* which can be highlighted after row */ 


E o =y 
1, 20, "INITIAL MENU", O, 
4, 12, "1 = LOAD project fron diskon e 
5, 12, "2 = NEWEPrO ect n, 2 
6, 12, "3XI-UENXEDLSErodgramo o 


9, 3, "Select with number or cursor and press [ENTER)...",0, 
99, 99, "1,99 

y; 
static struct pmenu intelc23 = 

(0; FALSE, O, 

I4 3 

1, 20, "NEW PROJECT MENU", O, 

4, 12, "l - Display/Edit.", 1, 

5, 12; 22 =- RUN Dynamic Simulation 5. 

6; 12; 3" = OUIT menu A; 

9, 3, "Select with number or cursor and press [ENTERI O. 
99, 99». 7%", 99 

); 
Static struct pmenu intelcO = 

(0, FALSE, 0; 

cae 

La 2 eee MAIN MENU", 0, 

3, 15, "I —SLISTOpreecgectoedcunSdgesc E 

4, 15, "2 = SELECT des@red project.", "Zz, 

5,. 15, "3 = RUN Dynamic Simulation. 3, 

6, 15, "4 = QUIT menu., 4; 

9, 3, "Select with number or cursor and press [ENTER]...",0, 
99, 99, 55" 99 
Static struct pmenu intelcl9 = 

(0; FALSE, OS 

256.95 

1 ]5 ea COCOMO MODEL", 0, 

2, 15, " ESC - EXIT ", 0, 

4, 15, "l - Basic COCOMO Medelk 1 

5, 15, "2 - Intermediate COCOMO Model", 2, 

7, 3, "Select the model you wish to use and press enter:",0, 
99, 99, "",99 

); 


static struct pmenu intelc21 - 
(0, FALSE, 0, 


2, 3, 

1, 6, "Current data file is for the Basic COCoMo", 0O, 
ZO (Select one of the following)", 0, 

4, 10, "1. = CONTINUE Basic COCOMO Model ue 
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5, 10, "2 - Intermediate COCOMO Model", 2, 

7, 3, "Select the model you wish to use and press enter:",0, 
DEMOS "".99 

y; 


static struct pmenu intelc22 = 
(0, FALSE, O, 

AS y 
1, 16, "SAVING FILES", O, 
Lo. " (Select one of the following)", 0, 
4, 10, "1 - SAVE changes under Same Name ", 1], 
5, 10, "2 - SAVE changes under New Name", 2, 
7, 3, "Select the model you wish to use and press enter:",0, 
DEOS, "",99 


Static struct pmenu intelc20 - 
BUESFALSE, 0, 
4 


2, 4, 

SEI, " COCOMO MODE SELECTION", O, 

pm " EON 0 

DEB  2'"l- - Organic", 1, 

5, 18, "2 - Semi-detached", 2, 

CG, "3 — Embedded", 3, 

8, 3, “Select the appropriate mode and press enter:  ",0, 
ree, 7 OO 


); 


Static struct pmenu intelcl = 
(0, FALSE, 0, 


2, 6, 

1, E RELY (Required software reliability)", 0, 

pO o" ESC - EXIT ", 0, 

EN L - Very Low; 0.75", 1, 

ENMED 2 ~ Low; 0.88", 2, 

Seo SS — Nominal; 1.00", 3, 

DEM S "4 — High; 1.15",4, 

UE "5 = Very High; 1.40", 5, 

11, 3, "Select the appropriate Software Cost Driver Rating: ",0, 
EOS "",99 


Static struct pmenu intelc2 - 
(0, FALSE, 0, 


2, 9, 

EAS - DpATA(Database size):", O0, 

2D AO A 0 

ao, "l1- Low; 0.94", 1, 

22MM S "2 — Nominal; 1.00", 2, 

DEED oU3 - High; 1.08", 3, 

IN 5, "4 - Very High; 1.16",4, 

10, 3, "Select the appropriate Software Cost Driver Rating: ",0, 
DO, "",.99 


T9 


static struct pmenu intelc3 - 
(0, FALSE, 0, 


p 
DEPT CPLX (Product complexity). 7.0, 
2, " ESC - EXIT ", 0, 

15, ;"bsVerv Dow; 0 7095 1 

15:0 2 LOW pa Or MS M 

15, "3-Nominal; 1.00", 3, 

15, "4-High; 1.15",4, 

15, "5-Verv High; c1. 30 eer 

, 19, "O-EStra High; 1 65 EEG. 


~ ~ ~ ~ ` 


~ ~ 


YO JAN NFPN 


11, 1, "Select the appropriate Software Cost Driver Rating: 


99, 99, "",99 
Eo 


Static struct pmenu intelc4 - 
(0 FALSE. 0, 


MEE 

1.525. on TIME (Exection time constraint)", O0, 

NL AE ESC = EXIT", 0; 

4, 15. 0] -— Nominal, 1.00" 7 vi; 

5; L95,52 = Avaya mel eZ 

6,-15,; "3 Vee oa 30 3, 

Tr 19, "4 =- EXE EA” 166174, 
10, 3, "Select the appropriate Software Cost Driver Rating: 
99. 99,2 99 

1 


static struct pmenu intelc5 = 
(0, FALSE; 0; 


2,087 

Tade M STOR (Main storage constraint)", 0, 
2 An ESC -EXIT "0 

4, 15, “l= Nominate. 1.00. i, 

5-15; 72.- HEMOGh 10005 

6, 15, "3 — Vervdlgh e 2135. 

7, 15, "4 —-Esbp Eau 1-56" d. 


10, 3, "Select the appropriate Software Cost Driver Rating: 
oD, e ao 
y; 


Static struct pmenu intelc6 = 
(0, FALSE, O0, 


2 

)2 2 E VIRT (Virtual machine volatility)", 0, 

2 ZN ESC - EXIT ", O, 

4, 15, "l — Lowe. co BP 

5, X5, "2  Nemuma e 0 ae 

6, 15, "23.- EEn les s 

7, 15, "4 - Very- High; 1.30", 4, 

10, 3, "Select the appropriate Software Cost Driver Rating: 
So 


static struct pmenu intelc7 = 
(0 HAUSE 0; 

r ,F 

Lu TURN (Computer turnaround time)", O0, 

E ESC- EXIT "MIN, 

5; "L= LOW TOO la 


, 


wm NO F DO 
P NN O 


r 
, 
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EMEN Q2 sNominal; 1.00", 2, 
OMM US c—oHrgh; 1.07", 3, 

DEB "4 — Very High; 1.15",4, 
0, 

9, 


J9 TT 99 


static struct pmenu intelc8 - 
(0, FALSE, O0, 

6 

2 

2 

E tI — Very Low; 1.46", 1, 


2 r 

ills po" ACAP (Analyst capability)", O, 
2 Fr 

4, 
EE "2 - Low; 1.19", 2, 
6, 

7, 

8 
19 


" ESC = EXIT ", 0, 


fe "Ss = Nominal; 1.00", 3, 
ie 4 — High; 0.86",4, 
fess “OD = Very High; 0.71", 5, 


r 3, "Select the appropriate Software Cost Driver Rating: 


DO, "",99 


static struct pmenu intelc9 = 
(0, FALSE, O, 


O 

ie; " AEXP (Applications experience)", O0, 
DES, ^" ESC - EXIT ", 0, 

DIES "lI = Very Low; 1.29", 1, 

ENS "2 = Low; 1.13", 2, 

CS "S3 — Nominal; 1.00", 3, 

IS, "4 - High; 0.91",4, 

IEEE > — Very High; 0.82", 5, 


11, 3, "Select the appropriate Software Cost Driver Rating: 


99, 99, "",99 
js 


static struct pmenu intelcl0 = 
ZEDMSFEALSE, O, 


O y 

vee, | PCAP (Programmer capability)", O, 
DET. " ESCI- EXIT! O 

IDEM "I - Very Low; 1.42", 1, i 

2 = Low; 1.17", 2, 

TT’ — Nominal; 1.00", 3, 

IS a — High; 0.86",4, 

AND "5 — Very High; 0.70", 5, 
ll, 3, "Select the appropriate Software Cost Driver Rating: 
A9 "",99 

y; 


static struct pmenu intelcll = 
(0, FALSE, 0, - 
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J, "Select the appropriate Software Cost Driver Rating: 


s 

x, T VEXP (Virtual machine experience)", O0, 

2 n ESC - EXIT ", 0, 

IN I = Very Low; 1.21", 1, 

elo, "2 = Low; 1.10", 2, 

OS "3 — Nominal; 1.00", 3, 

Elo, "4 — High; 0.90",4, 
10, 3, "Select the appropriate Software Cost Driver Rating: 
99, 99, "",99 

}; 


n 
10, 


static struct pmenu intelcl2 = 

(0, FALSE, 0, 

Lig ou 

Lelie LEXP (Programming Language experience)", 0, 
2c ESC - EXIT ", O, 

4, 18, "1, = Very Low eit, 

5 Sp) SS Ow yO. eee 

6, 15, "3 "== Nominal OS. 

7,.15, "4 ——Hrgbo 0 9505 ae 
10, 3, "Select the appropriate Software Cost Driver Rating: ",0, 
99; 99 T1799 


static struct pmenu intelc13 = 
(0, FALSE, 0, 


dE 

LE MODP (Use of modern programming practices)", 0, 
LES ee ESC = EXIT N0; 

d lo, T= Very Low, 1:249 10 

5, 15, "2 - Low.s2b LOL 

6, 15, "3 == Nominal 0097441 3. 

Te 15,594. => High: 0.919 1. 

8, 15, “Si = Very HT: AUS 
11, 3, "Select the appropriate Software Cost Driver Rating ",0, 
99 9g une 9 

js 


Static struct pmenu intelcl4 - 
(0, FALSE, 0, 


6, 
2 ES TOOL (Use of software tools)", O, 
202m ESC -= EXIT T, 0, 
15, "lI — Very Lon; 21424") 2 
15, "2 = Low;21.12095 0 
15, "3 - Nominal. 16905 3: 
IS, T4 = High 07915, 47 
, LS, %5 = very High, 0.8225, 
11, 3, "Select the appropriate Software Cost Driver Rating: ",0, 
99, 99, "",99 
); 


` ` ~ ~ - q 


0 3] YN a NP Pho 


static struct pmenu intelcl5 = 

(0, FALSE, 0, 

256r 
Po ER SCED (Required development schedule", 0, 
2725. 2" ESC *UEBENPI S Ls 
4, 15, "l] - Very Lon: 2907 le 
5, 15," "2 — Low 15.0952. 
6, 15, 8o. — Nonaümnmad WP a 
7; 15, "4 -— High ua? d. 
8, 15,75. .— Very High 1.105 >, 
11, 3, "Select the appropriate Software Cost Driver Rating: ",0, 
99, 99, "",99 


/* Function which lists all the data files (*.PRF) */ 
/* in the current directory.  */ 


int filelist (void) 
( 
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seruct ffbik ffblk: 
int doned; 


printf ("Data file listing: inn”); /* “prt for profile <7 
Sanea ss frindfirst("*.prf",&ffblk,0); /* finds first .prf file */ 
while (!done4) 
{ 

Prince (" So \n"potblk  peename) 

done4 = findnext (&ffblk) ; /* finds the next .prf file */ 


) 


peturni(l); 


) 


/* This function accepts numerous pointers to various strings */ 
/* which allows the user to select variables from the display */ 
/* and change the value of current simulation input variables. */ 


Lus model in(float *fptr,float *PCNT,int *KDSI,float *results,int mode,char 
fnamel[], float *EAF1, float *cdrate, int donel, float mfl) 
( 


/* Declarations for this function */ 
Ent cchoicel, choice2, choice3; 

float expl,exp2; 

char stringl[] 
char string2[] 
char string3[] 
char string([14]; 


"Organic"; 
"Semi-detached"; 
"Embedded"; 


Ho d il 


Switch(mode) /* mode variable is passed in to function */ 
{ /* used to display one of the 3 strings declared */ 
/* above for display on this screen; switch/case format*/ 
case 1: 
Serepy (string, sterang!); 
break; 
case 2: 
strcpy (string, strang2) ; 
break; 
case 3: 
Serepy (String,cerings) ; 
break; 


) 


/* clears screen and displays variables on screen in below format */ 


while(!donel) 
( 


elcacr (); 


pEXntf cy AAA AAA RARA RARA RARA ARA RARA RARA NN) A 
PRÉnt£ (" MODEL INPUTS for %s An", fnamel); 
printfi(" . %3 Mode\n", string) ; 
print £ (" A c kc kc AAA RARA KK RARA KARA ke ke ke oko xx * Nn An") ; 
printf£(" TO TNUDSTI: $5 3f ex (1) TPFMQA[1]: 
SEEDS n",fptr[0],fptr[12]); 
prrntfí(" 2. ADMPPS: %5.3f (2) TPFMQA[2]: 
Em rUn",fptr[1],fptr[13]); 
printf(" 3. HIREDY:  $5.3f (3) TPEMQA(3]: 
SS An”, £ptr[(2],£ptr[l4]); 
printf (" 4. AVEMPT: %5.3f (4) TPFMQA[4]: 
It iun",fptr[3],fptr[15]): 
peinte" 5. TRPNHR: %5.3f (5) TPFMQA[S]: 


ape t1n", £ptr[4], £ptr(16]1); 
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*5. 
%5. 
ta: 


%5. 


%5 


%5 


%5 


print (e 6. ASIMDY: %5. 3f (6) TPFMQA[6]: 
3f\n epee lol, fper eles 


printf (" 7. (1) TNERPK[1]: %5.3£ (7) TPFMQA[7]: 
JSEXn",fptrlieoblsfptrhl20E 

printf(" (2) TNERPK[2]:  $5.3f (8) TPFMQA[8]: 
3£\n", Eptr id), fpte liaise 

printf? (3) TNERPK[3]: $5. f (9) TPFMQA[9]: 
3fNXn"  fpEELSE EDtEL20IDE 

PENE El (4) TNERPK[4]: TOC AE (10) TPFMQA[10]: 
-Sf\n"7 Fete lo), ptr ile ae 

printf (" (5) TNERPK[5]: $5.3£ 9. DEVPRT: 
fn” EPELI O] EpEEI22 Ne 

printi? (6) TNERPK[6]: X5. 3f Oe DSIPTK: 
~3f\n\n"7 fpte Gl e Eptri[22])7 

printi? 11. Size of project (KDSI): *%dinin" RDSI 

Printe- 12. EXIT and SAVE changes.\n\n"); 


/* allows user to select a variable using assigned number and */ 

/* change current value by displaying just the variable selected */ 
/* once the new value is entered fuction returns to the display */ 
/* screen for user to see changes and allow additional changes */ 


printe" Enter number of parameter you wish to change:  "); 
scanf ("*$d",&choicel); 


switch (choicel) 
{ 
case l: 
clrscer{):; 
gotoxs tro ro). 
printf("Enter Initial Under Staffing Level Factor:  "); 
scanf ("$£f",&fptr[0]); 
break; 
case 2: 
elrser ().; 
gotoxy (107,10); 
printf("Enter Average Daily Manpower per Staff Member:  "); 
scanf("S$f",&fptr[1]); 
break; 
case 3: 
GLESCE NS 
gotoxy (10,10); 
printf ("Enter Hiring Delay: e 
scanf (Tif; &fptr[21); 
break; 
case 4: 
clrscr(); 
gotoxy (10,10); 
printf ("Enter Average Employment Time:  "); 
scanfi"*t'&tDpEP[3]); 
break; 
case 5: j 
CLESCE NS 
götoxy (107 10); 
printf ("Enter Training Overhead:  "); 
scan£f("*f'"&fptrE[4])s 
break; 
case 6: 
crrscr 
gotoxy (10,10); 
printf("Enter Average Assimilation Delay:  "); 
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secanrf("*f",efptr[5]); 
break; 


/* The TNERPK has several entries for this one variable by using */ 
/* a second set of values for each entry the user can change one */ 
/* entry at a time vice entring all the values each time even if */ 
/* one value needed to be changed.  */ 


case 7: 
PEI Enter subscript value of TNERPK parameter you wish to 
change: "); 
scanf ("%d", &choice2) ; 
switch (choice2) 


( 


case 1: 
elrser(); 
geeoxy (10,10); 
Prantl ("Enter Error rate[]]: "); 
scanf (TSE &fptr[9]); 
break; 
case 2: 
elrscr():; 
gotoxy (10,10); 
prungtosbnter brror rate[2]*- "); 
scanf ("%f", &fptr[7]); 
break; 
case 3: 
pIrscrt). 
Tetoxy (0710); 
printf6oUEnter Error rate[35]: "); 
scanf("$*£",&fptr[8]); 
break; 
case 4: 
elrser() >; 
gotoxy (10,10); 
printf ("Enter Error rate[4]: "); 
scanf ("$f",&fptr[9]); 
break; 
case 5: 
clrscrt(): 
qetexy (10, 110): 
prrntt("Enter Error ratelol: "); 
scanf ("%$f", &fptr[10]); 
break; 
case 6: 
eUrser()> 


gotoxvtl0 10) 
print£("Enter Error rate[6]: "); 
scanf ("3£", &fptr[11]); 
break; 
default: 
break; 


break; 
/* TPFMQA set-up same way as TNERPK for same reasons */ 


case 8: 
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to change: 


297 


Prines 


scanf ("%d", &choice3) ; 
switch (choice3) 


{ 


case 1l: 


cClreSscr(j- 
gotoxy (10, 10); 
printf ("Enter Planned Fraction 
scanfi( "ti", stoteli2 ips 
break; 
case 2: 
clescecr() 
götoxy (107 TON 
printf ("Enter Planned Fraction 
scant ("si") &fpen ls) 
break; 
case 3: 
CIrSCE(Q. 
gotoxv 19,10) 
printf ("Enter Planned Fraction 
scanf("*f",&fptr[14]); 
break; 
case 4: 
clrscr(); 
gotoxy (10, 10): 
printf ("Enter Planned Fraction 
Scanf("wf" afpera, 
break; 


case 5: 


Clrscor(); 
götöxy (10,107; 
printf ("Enter Planned Fraction 
Sscant(" «f? NLptrptoly 
break; 


case 6: 


eclrser 0); 

gotoxy (10,10); 
printf("Enter Planned Fraction 
scant ("Sfi", stptel il? ])-- 
break; 

case 7: 
clrser() 

götoxy (10,107); 
printf ("Enter Planned Fraction 
scanf ("fT &fperils i: 
break; 

case 8: 
clrsomo 

gotoxy (10,10); 
printf ("Enter Planned Fraction 
scanf("$ft",&£ptETI9]1)- 
break; 

case 9: 
clrscrt) 

qotosxy c9, 10); 
printf("Enter Planned Fraction 
scant ("F273 wept -[ 20); 
break; 


case 10: 


clrscr(j-. 
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OF 


of 


of 


of 


Of 


of 


Of 


OT 


of 


Manpower 


Manpower 


Manpower 


Manpower 


Manpower 


Manpower 


Manpower 


Manpower 


Manpower 


for 


FOC 


for 


for 


for 


for 


for 


for 


for 


Enter subscript value of TPFMQA parameter you 


QA[1]: 


QA[2]: 


QA (STE 


QA[4]: 


QA[5]: 


QA[6]: 


QA[7]: 


QA[8]: 


QA[9i: 


wish 


TET 


"m 


m 


T) 


S) ER 


E 


O 


E 


“e 


ini) 


Getexy (00, 10); 
printf ("Enter Planned Fraction of Manpower for QA[10]: "); 
scant("wr" &sfptr[21l1]); 
break; 
default: 
break; 


break; 
case 9: 
clrscr(» 
gotoxy (10,10); 
printf("Enter DEVPRT: nyes 
Scant (“TEN Efptr[22)); 
break; 
case 10: 
cirscri). 
götoxy (10; 10); 
printf("Enter Nominal Potential Productivity MD percent 


peineta Percent MD for tests:  "); 

scanf ("%f", &PCNT[0]): 

printf ("in Please be consistent with TPFMQA input values)\n"); 
Printe? Percent MD for QA: "ms 
scanf("€f",&PCNT[1]); 

printf” Percent MD for Rework: "); 

scanf ("%f", &PCNT[2])}); 


break; 
case 11: 
Glrscr(); 
gotoxy (10,10) ; 
printf("Enter new Size of project (KDSI):  "); 
scanf("$&d",&KDSI[0]); 
break; 
default: 
donel = 1; 
) /* switch choice 1 */ 
switch (mode) 


{ 


case 1: 
expl = 1.05; 
exp2 = 0.38; 
calc (results, KDSI, EAF1, cdrate,mfl,expl,exp2) ; 
break; 
case 2: 
expl = 1.12; 


exp2 = 0.35; 
calc (results, KDSI, EAF1,cdrate,mfl,expl,exp2) ; 


break; 
case. 3: 
expl = 1.20; 
exp2 = 0.32; 
calc(results,KDSI,EAFl1,cdrate,mfl,expl,exp2); 
break; 


) 

/* Nominal productivity is one of 3 variables passed into */ 
/* the simulation model that need algorithmic calculations. */ 
/* This function will be discussed in detail below */ 

fptr[23] = prod (PCNT, results[0], results[2],KDSI); 
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) /* while donel */ 
) 


/* This function gives the user the Opportunity tos wlewscurrents 
/* values assigned to the COCOMO 15 cost drivers and make changes */ 
/* if necessary. All cost drivers are defaulted to 1.00. */ 


void icocomo in(float *rate,float *EAF1,int done3,char *fnamel) 


( 
/* rate is an array which hold the values for determining EAF for COCOMO */ 


int chorcesr- 
int CD1,CD2,CD3,CD4,CD5,CD6,CD7,CD8,CD9,CD10, CD11,CD]12, CD13, CDI MS NE 


/* clears screen and displays the 15 cost drivers and values */ 


while(!done3) 


{ 


elrser () ; 


printf CR RRKKKAKKAKKKKKKAKKKAKKKKKKKKEKKKKKKKKARKKAAKKAKKKA KV, : 

printe" INTERMEDIATE LEVEL COCOMO MODEL INPUTS Anm 
rine i" for %s n",fnamel); 

erra in A o ; 

prantf ( 1 RELY: “341.25 rte Tr0)]) 

printi 2 DATA: %1.2f\n", ratelll):; 

printf" 3 CPLX:xb 2tfun"iratet2]1)s 

praint£(" 4. TIME: *41.2£\n" atet31)»* 

PEINE EN 5. STORtmetisaZt\n  seace (4): 

printer" 6. AVIRI: "ST. ZENA", rate 

printet (T 7 TURN: %1.2£\nf ratel6l):; 

Printe" 8 ACAP: %1.2f\n",rate[7]); 

printe" 9. AEXP: %1.2£f\n",ratel[8]); 

prince" 10. PCAP: %1.2f\n",rate[9]); 

printer." ll. VEXP: 31 2¢\nt jeace | 10) ): 

Prints (O 12. LEXP: 31.2£. n "Eabe[11])* 

prdpEf(t 13. MODP: %I.2£\n",ratel[l2]); 

prrner(t 14. TOOL: 3%1.2£f\n" racen: 

PENEDES 15. SCED:  *1.2fX4n Vn ra cela 

print£(" I6. Press (16 or 0] when entries are 


complete.\n\n") ; 


/* allows user to select one of the above cost drivers by number */ 
/* using the case statments the program calls specific pop-up */ 

/* menus for the user to select specific values from and return */ 
/* to display screen to see changes.  */ 


printf? 


{ 


Select Cost Driver and press [Enter]: "); 
scanf ("%d", &choice); 
switch (choice) 


case 1: 


CD1 = wn popup (0, 5, 15, 50, 
switch (CD1) 
{ 
Case 0: 
break; 


case 1: 
rate[0] 
break; 

case 2: 
rate[0] 


i 
e 


edo 


i 
O 


08; 
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10; 


wat, bat, &intelcl, TRUE); 


break; 


case 3: 
rate[0] = 1.00; 
break; 

case 4: 
rate[0] = 1.15; 
break; 

case 5: 
rate[0] = 1.40; 
break; 

} 

break; 

case 2: 


CBZ "= whepopup(0, 5, 15, 50, 10, wat bat, &intelc2, TRUE); 
switch (CD2) 
{ 
case 0: 
break; 


case 1: 
rate[1] 
break; 

case 2: 
rate[1] 
break; 

case 3: 
rate[l1] 
break; 

case 4: 
rate[1] 
break; 


Il 
e 


.94; 


I 
PR 


200» 


| 
pa 


2097 


I 
FR 


2165 


} 


break; 
case 3: 
CD3 = wn_popup(0, 5, 15, 50, 10, wat, bat, &intelc3, TRUE); 
switch (CD3) 
{ 
case O0: 
break; 


case 1l: 
rate[2] = 0.70; 
break; 

case 2: 
rate[2] = 0.85; 
break; 

case 3: 
rate[2] = 1.00; 
break; 

case 4: 
rate[2] = 1.15; 
break; 

case 5: 
rate[2] = 1.30; 
break; 

case 6: 
rate[2] = 1.65; 
break; 


break; 
case 4: 
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Case 


case 


CD4 = wn _popup(0, 5, 15, 50, 
switch (CD4) 
{ 


case 0: 
break; 


10, wat, bat, 


case 1: 
rate [3] 
break; 

case 2: 
rate[3] 
break; 

case 3: 
rate[3] 
break; 

case 4: 
rate[3] 
break; 


ll 
P 


ZOO 


ll 
RP 


ILL: 


ll 
- 


2307 


I 
| 


GG: 


} 
break; 

5s 
CDS = wn _popup(0, 5, 
switch (CD5) 
( 
case 0: 

break; 


15, 50, 10, wat, Bat; 


case 1: 
rate[4] 
break; 

case 2: 
rate[4] 
break; 

case 3: 
rate[4] 
break; 

case 4: 
rate[4] 
break; 


i 
pa 


20057 


Il 
| 


20057 


I 
| 


NL. 


il 
n 


ES 


break; 
6: 
CD6 = wn_popup(0, 5, 15, 50, 10, wat, bat, 
switch (CD6) 
{ 
case 0: 
break; 


case 1: 
rate[5] 
- break; 
case 2: 
rate[5] 
break; 
case 3: 
rate[5] 
break; 
case 4: 
rate[5] 
break; 


ll 
O 


nO; 


I 
pa 


zone 


I 
|. 


SIR 


I 
| 


23 OF 
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&intelc4, 


TRUE) 


«intelc5, TRUE 


&intelc6, TRUE); 


break; 
case 7: 
CDI NMecwnEpopup(i0, 5, 15, 90. 10, wat; bat, &intelc7, TRUE); 
gwitch (CD7) 
{ 


case 0: 
break; 

case 1: 
rate[6] = 0.87; 
break; 

case 2: 
ráte[6] = 1.00: 
break; 

case 3: 
rate[6] = 1.07; 
break; 

case 4: 
rate[6] = 1.105; 
break; 

} 

break; 

case 8: 


CD8 = wn popup(0, 5, 15, 50, 10, wat, bat, &intelc8, TRUE); 
Switch (CD8) 
{ 
case O0: 
break; 


case 1: 
rate((7] 
break; 

case 2: 
rate[7] 
break; 

case 3: 
rate[7] 
break; 

case 4: 
rate[7] 
break; 

case 5: 
rate[7] = 0.71; 
break; 


Il 
re 


.46; 


ll 
E 


. 19; 


ll 
— 


. 00; 


Uo 


) 
break; 
case 9: 
CD9 - wn popup(O, 5, 15, 50, 10, wat, bat, &intelc9, TRUE); 
switch (CD9) 
( 
case O0: 
break; 


case 1: 
rate[8] = 1.29; 
break; 

case 2: 
rate[8] 
break; 

case 3: 
rate[8] 


I 
HP 


SO 


ll 
Pp 


2005 


EU 


break; 
case 4: 
rate[8] 
break; 
case 5: 
rate[8] 
break; 


I 
Oo 


. 91; 


ii 
o 


4:825 


) 
break; 
case 10: 
CD10 = wn_popup(0, 5, 15, 50, 10, wat, bat, é&intelcl0, TRUE): 
switch (CD10) 
{ 
case 0: 
break; 


case i: 
rate[9] = 1.42; 
break; 

case 2: 
rate[9] = 1.17; 
break; 

case 3: 
rate[9] = 1.00; 
break; 

case 4: 
rate[9] = 0.86; 
break; 

case 5: 
rate[9] = 0.70; 
break; 


) 
break; 
case 11: 
CD11 = wn popup(0, 5, 15, 50, 10, wat, bat, &intelcll ONDES 
switch (CD11) 
{ 
case 0: 
break; 


case 1: 
rate[10] 
break; 

case 2: 
rate[10] 
break; 

case 3: 
rate[10] 
break; 

case 4: 
rate[10] 
break; 


li 
IP 


a2 


u 
r3 


bs 


li 
pa 


2007 


ii 
O 


-907 


) 
break; 
case 12: 
CD12 — wn popup(0, 5, 15, 50, 10, wat, bat, &intelciZ Pp LU 
switch (CD12) 
( 
case 0: 
break; 
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case I1: 
rate[11] 
break; 
case 2: 
rate[11] 
break; 
case 3: 
rate[11] 
break; 
case 4; 
rate[11] 
break; 


) 


tl 


break; 


case 13: 


sud 


2:073 


2007 


AO Es 


GDIS —ownepopup(0, 5, 15, 50, 


switch (CD13) 


( 
case O0: 
break; 


case 1l: 
rate[12] 
break; 

case 2: 
rate[12] 
break; 

case 3: 
rate[{12] 
break; 

case 4: 
rate[12] 
break; 


case 


rate[12] 
break; 


} 


(n 


break; 


case 14: 
CD14 = wn_popup (0, 
(CD14) 


switch 

{ 

case O0: 
break; 


case 1: 
rate[13] 
break; 

case 2: 
rate[13] 
break; 

case 3: 
rate[13] 
break; 

case 4: 
rate[13] 
break; 

case 5: 
rate[13] 
break; 


220; 


PLO? 


200; 


. 91; 


dar 


ma: 


1 


200: 


sols 


ngu 


2, 


23 


507 


T03 


wat, 


wat, 


bat, 


bat, 


&intelc13, 


&intelc14, 


TRUE; 


TRUE); 


break; 


/* for the schedule cost driver need both the EAF value */ 
/* but also the actual percent of schedule compression */ 
/* or expansion for later COCOMO calculations. */ 


case 15: 
CD15 = wn_popup (0, 5, 15, 50, 10, wat, bat, &intelc15, TRUE); 
switch (CD15) 
{ 
case 0: 
break; 


case l: 
rate(14) = 1.23; 
EAF1(0] = 0.75; 
break; 

case 2: 
rate[14) = 1.08; 
EAF1[0] = 0.85; 
break; 

case 3: 
rate[14] = 1.00; 
break; 


case 4: 
rate[14] = 1.04; 
EAFL[0] - 1.30; 
break; 

case 5: 
rate[14) = 1.10; 
EAF1[0] = 1.60; 


break; 
} 
break; 
default: 
done3 = 1; 
break; 


} 


} /* while done3 */ 
) 


/* This function saves all of the current data for each project */ 
/* under a specific name specified by the user */ 


void file save (float *DSMI,float *cdrate,float *PCNT,char *fnamel,flostaEBE NE 
*KDSI, int mode, fleat mfl) 
{ 


if ((fout = fopen(fnamel, "wb") )==NULL) 
{ 

fprintf(stderr, "Unable to open file $s \n", fnamel) ; 
) 


else 

{ 
printf ("\n\amoop ogee ee ee $s\n\n\n\n", fnamel) ; 
print £(™ \o Waseca eee cee $sin",fnamel); 


fwrite((void *) DSMI,26 * sizeof(float),1,fout); 
fwrite((void ^)*"NDSI.sizeof(int),l,fout)s 
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EWElEe((VvOLd *) &EAF,sizeof(float),l,fout); 
twritedvord^*) cdrate,15 * szzeof(float),l1,fout); 
BEwriteuivord *) PCNT,3 * srzeofi(float),l,fout); 
fwrite((void *) &mode,sizeof(int),1,fout); 
Bberrte((vord "*")-&mfl,sizeof(float),l,fout); 
fclose(fout); 


) 


/* This function provides the avenue to interface the output */ 

/* variables from this program into the simulation model via a */ 
/* text file and pass certain other variables to the TESTIO */ 

/* program via a binary file for reporting estimates and actual */ 
/* results and error rates. */ 


EssErsle prnt(float TOTMD1,£loat TDEV1,int *KDSI,float *DSMI) 
( 

PICE *fpout; 

Mong 1; 


/* need to change to long, once multiplied by 1000 */ 
/* size could be out of integer range. */ 


RE KDSI[O]I*1000.0; 
/* Writes to textfile SIMONE.DNX */ 


Esrintf(textfile,"C RJBDSI-$1dXn", 1); 

herent? (textfile,"C TOTMD1=%5.2f\n", TOTMD1): 

ferimner (textfiile,"C TDEVL=%5.2£\n", TDEVL) ; 

Boruntrt(textfile,"C INUDST=%5.2£\n", DSMI[0}); 

Eorsntf(textfile," C ADMPPS=#t5.2£\n", DSMI[1]); 

fprintf (textfile,"C HIREDY=%5.2f\n", DSMI[2]}); 

fprintf (textfile,"C AVEMPT=%45.2f\n", DSMI[3]); 

fprintf (textfile,"C TRPNHR=%5.2f\n", DSMI[4]); 

foranmtt (textfile,"C ASIMDY=%5.2f\n", DSMI[5]); 

Geerntf (textfile, "T TNERPK=3%5.2f toes $5.2f Xo E %5. Zf X5.2tAn'. 
DSMI[6],DSMI(7],DSMI[8],DSMI(9],DSMI[10],DSMI(11]); 

ueurutf(textfile,"T TPEMQA=35.3£ %5.3f $*5.3f 35.3£ 45.3£ $*5.3f $5.3f $5.3f 
% 5 : 3 f % 5 : 3 £ 0 \ n " ; 
ISIN DSMI[I3],DSMI(I14],DSMI[I5],DSMI(l16],DSMI[17],DSMI(18],DSMI(19],DSMI[2 
0], DSMI[21]); 

ILorIntf(textfile,"C DEVEPRTe$5.2fWXn", DSMI[22]); 

mrUntf(textfile,"C DSIPTKe$5.2fNXn", DSMI[23]); 

fclose(textfile); 


/* Writes to binary file OUTFILE.DNX */ 
if ((fpout = fopen("outfilel.dnx", "wb") )==NULL) 
{ 


fprintf(stderr,"Unable to open file %s \n", "outfilel.dnx") ; 
} 


else 


{ 


/* write Estimated Effort and Estimated Schedule */ 
fwrite((void *) &TOTMD1, sizeof (float),1,fpout); 
fwrite((void *) &TDEV1, sizeof (float),1, fpout) ; 
fclose (fpout) ; 
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) 


/* 
/* 
/* 
/* 


Part of the calculation for Nominal Productivity requires <7 
interpolation. This function accepts staff size variable */ 

and returns communication overhead factor for use in determining */ 
Nominal Productivity. */ 


float interp (Elo tes temió) 


( 


) 


/* 
/* 
/* 
/* 
/* 
/ * 
E 
/* 
/* 
/ * 
A 


float covhd; 
if ((stf size >= DIL NadsttesszcM c 
i covhd so (((stEusSr2e-s0) s 0S) ODE 
i£ ((stf size- O) a&i (Itil Iiz- =F 0) 

covhd = (((3tfT31276- 5) UA O 
if ((stf ize ASS eS 

covhd = (((St£isizesi0) 7 20 75)) >) EE 
if ((stf size > 15) 8S8 (Stt uoTzcE CO 

covhd = (((Sst fisize=15) e105) 7 5) 5 1357 
LE ( (Sti Size 2220) Race (stl Size. O 

covhd = (((sttisuze-20) 1515 5) D 
if ((stt size » 29) && (Sttosgze =O 

covhd = (((stf.si2e-25 M16) E NE 
if (stf size >=130) 

covhd = .54; 


} 


return covhd; 


This function does the Nominal Productivity calculations */ 


TOTMD1 - Effort passed from main function in man-days */ 

TDEV2 - Schedule in months not days! */ 

PCNT - array from main function which passes $Testing,$QA */ 
and $Rework for man-days */ 

MM - Effort in man-months */ 

stf size - Average Staff Size - MM/TDEV2 */ 


DEVMD - Development man-days */ 


ADP - Actual Development Productivity */ 
covhd - Communication Overhead */ 
product - Nominal Productivity */ 


float prod(float *PCNT,float TOTMDI,float TDEV21nt OS KDST) 


( 


float MM,stf size,DEVMD,ADP,covhd; 
float product; 


MM = TOTMD1/19; 
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) 


/ * 
/* 
/* 
/* 
/* 
/* 


st£ size = MM/TDEV2; 


DEVMD - (1-(PCNT[0]-*PCNT[1]-*PCNT[2])) *TOTMD1; 
ADP = (KDSI(0] * 1000.0)/DEVMD; 
covhd = interp(stf size); /* call interpolation function */ 


product = ADP/(0.6 * (1.0-covhd) ); 
return product; 


This function completes COCOMO calculations for input into */ 
simulation model */ 

result array is used to hold man-day and schedule results */ 

EAF1 contains the percent to multiply TDEV by from cost driver 15 */ 
mfl, expl and exp2 are the coefficients and exponents passed */ 

in from main function */ 


void calc(float *result,int *KDSI,float *EAF1,float *cdrate, float mfl,float 
expl, float exp2) 


{ 


T9: 


} 


IE i? 

float EAF; /* Estimated Adjustment Factor */ 
EAF = 1.00; 

for (i=0;i<15;i++) 


EAF *= cdrate[i]; /* Calculate the EAF by multiplying each */ 
/* cost driver by one another */ 
} 
/* Total man-days calculation */ 
result(0) = mfl * (pow(KDSI[0],expl)) * 19.0 * EAF; 


/* if cost driver 15 (schedule) is nominal then calculations */ 
/* are straight forward. If not you must divide the man-days */ 
/* by cdrate[14] or calculate total man-days as if schedule */ 
/* was nominal. */ 


if (EAF1(0] != 1.00) 
{ 
result(1] » 2.5 * pow(((result[0]/19.0)/cdrate[14]),exp2) * EAF1[0] * 
0; 
result[(2] » 2.5 * pow(((result[0]/cdrate[14])/19.0),exp2) * EAF1[01]; 
) 
else 
( 
result(1]) = 2.5 * pow((result(0]/19.0) ,exp2) * 19.0; 
result(2] = 2.5 * pow((result(0]/19.0),exp2); 
) 
result[3] = EAF; 
return; 


/* Small function. that simply initializes all the */ 
/* cost drivers to 1 */ 


void initial(float *cdrate) 


{ 


mt i; 
for(i20;i < 15; itt) 
{ 


) 


return; 


cdrate[i] = 1.00; 


20 


void main () 


{ 


int i, done=0,donel=0, done3=0, done5=0, done6=0; 
int sel, sell, sel2, sel3, sel!, sel5; 


int mode; /* One of 3 COCOMO modes */ 
int KDSI (2 /* Stores size and counter */ 
float EAF1[1]; /* Stores schedule cost driver percent */ 


float cdrate [15]... DSMLiZ6l].. PENT (3), resmres (41. 
float TOTMD1, TDEV1, TDEV2, ADP, mfl, expl, exp2; 
char fnamel[13]; 

char fname2[13]; 

char string[25]:? 

charsstringlb25d 

int ch "base: 


/* creates textfile which is interface with simulation model */ 
textfile = fopen("SIMONE.DNX", "w") ; 


/* initializes scedule cost driver to 1 */ 

EAF1[0] = 1.00; 

/* bat is the boarder attribute for the pop-up window */ 
/* sets background to blue and boarder to white */ 

bat = v_setatr (BLUE, WHITE, 0,0); 


/* wat is the window attribute for the pop-up window */ 
/* sets background to blue and text to white */ 
wat = v_setatr (BLUE, WHITE, 0,0); 


clrscrór 


/* this while statement gets program started always initiated on */ 
while (!done6) 


( 
elrscri) /* pop-up initial menu */ 
/* allows user to go to main menu */ 
/* create a new project or EXIT */ 
sel '- wn popup(O0, 5, 10, 55, 10, wát bat; Sintel TRUE) 


switch (sel) 


{ 


case 1: /* user selected to go to main menu */ 
done5=0; 
while (!done5) 
{ 
clrscr():; /* Main Menu will allow user to */ 
/* list, select, run simulation *y 
/* or exit this menu x 


sel2 = wn_popup (0, 5, 10, 59.2 12, wat, bat,” £intelc0, "TRUE 


switch (sel2) 
( 
case 1: /* user selected to list data files */ 
filelist (); /* calls function to list all *.prf files */ 
/* no break; continues to case 2 */ 
case 2: /* user can look at list and enter file name */ 
printf("\n\n:> Enter project filename: "); 
scanf ("%s", &fnamel) ; 
/* if name of file is mis-entered program goes back to */ 
/* main menu */ 
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if ((fin = fopen(fnamel, "rb") )==NULL) 
{ 
fprintf(stderr,"Unable to open file %s to read\n", fnamel) ; 
continue; 
} 
/* read in the data of the selected filename */ 
fread( (void *) DSMI,26 * sizeof(float),1,fin):; 
fread( (void *) KDSI,sizeof(int),1,fin); 
fread((void *) &results[3],sizeof (float),1, fin); 
fread((void *) cdrate, 75 * sivczeof(Eloat),l,fin); 
fread( (void *) PCNT,3 * sizeof (float),1,fin); 
fread( (void *) &mode, sizeof (int),1,fin); 
fread ( (void *) £mf1,sizeof (float),1,fin); 
fclose (fin); 
/* re-intialize */ 
donel = 0; 


/* function described above which allows user to display */ 
/* on screen the variables for the simulation model less */ 
/* the COCOMO variables */ 


model _in(DSMI, PCNT, KDSI, results,mode, fnamel, EAF1, cdrate, donel,mf1) ; 


if(results[3]221.00) /* checks if EAF = 1.00 */ 
{ 
clrser\) | /* gives user option to continue */ 
/* using basic model or use intermediate */ 
sel3 = wn_popup(0, 5, 10, 50, 10, wat, bat, &intelc21, TRUE); 
switch(sel3) 
( 
case 1: /* user selected basic model */ 
basic = 1; 
initial(cdrate); /* Basic model EAF values must */ 
break; /* all be 1.00. This sets all */ 
/* cost drivers to 1.00 */ 
case 2: /* user selected intermediate model */ 
basic = 0; 
initial (cdrate) ; 
/* Displays cost driver screen; allows user to */ 
/* set cost drivers to desired level */ 
icocomo_in(cdrate,EAF1,done3,fnamel); 
' break; 
) /* switch sel3 */ 
po TENERE 
else /* if EAF is other than 1.00 */ 
{ 
/* displays cost drivers values and */ 
/* allows user to manipulate */ 
basic = 0; 
icocomo_in(cdrate, EAF1,done3, fnamel) ; 


clrscr(); 
/* pop-up menu for user to select COCOMO mode */ 
mode = wn_popup(0, 5, 10, 50, 10, wat, bat, &intelc20, TRUE); 


switch (mode) 
{ 
case 1: /* Organic mode */ 
if (basic != 1) 


{ 


mel". = 32: /* sets coefficient and exponents */ 
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) 
else 


{ 
) 


expl w057 /* for man-days calculation */ 

exp2 0538; /* for schedule calculation */ 

/* function that actually does the COCOMO calculations */ 
calc(results,KDSI,EAF1,cdrate,mfl,expl,exp2); 


mfl = 2.4; 


break; 
case 2: /* Semi-detached mode */ 
MEL ESAS 
expli" 1 T7 
exp2 = 0.35; 
calc(results,KDSI,EAF1,cdrate,mfl,expl,exp2); 
break; 
case 3; /* Embedded mode */ 
if (basic !- 1) 
( 
mel Ll. = 3.67 /* sets coefficient and exponents */ 
) 
else 
( 
MEL ELO 
) 
expl 1-205 


exp2 = 0.32; 
calc(results,KDSI,EAF1l,cdrate,mfl,expl,exp2); 
break; 
) /* switch mode */ 


/* allows user to save current datafile under the same name */ 
/* or save the same or manipulated data under a new name */ 
sel4 = wn_popup(0, 5, 10, 55, 10, wat, bat, &intelc22, TRUE); 


switch (sel4) 
{ 
case 1: /* save in same file */ 
file save (DSMI,cdrate, PCNT, fnamel, 
results[3] KDSI,mode,mfl); 


break; 
case 2: /* if you are changing the name of the file */ 
Glrsort5 
gotexy (12,10); /* enter new name */ 
printf ("Enter the new project filename:  "); 


scanf ("%s", &string) ; 


/* Program lets user enter more than 8 characters */ 

/* for filename. This copies first 8 characters */ 

/* into nem filename variable */ 
strncpy(fname2, string, 8); 
string(8}] = '\0’; /* resets string to null */ 
strcat(fname2,".prf"); /* automatically adds ". pretium 


/* writes new file to disk */ 
fnew = fopen(fname2, "wb") ; 
fwrite((void *) DSMI,26 * sizeof (float), 1, tnew); 
fwrite((void *) KDSI, sizeof (int),1, fnew) ; 
fwrite((void *) &results[3],sizeof(float), 1,fnew); 
fwrite((void *) cdrate,15 * sizeof (float),1, fnew) ; 
fwrite((void *) PCNT,3 * sizeof (float) ,1, fnew) ; 
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fwrite((void *) &mode, sizeof(int),1, fnew); 
fwrite((void *) &mf1l,sizeof(float),1, fnew) ; 
fclose (fnew); 


) 


break; 
case 3: /* allows user to exit into the simulation */ 
/* model automatically saving data first */ 
done5 = 1; /* Will cause exit to main menu */ 
done6 = 1; /* Will cause exit from program */ 


/* calls file prnt which outputs both SIMONE.DNX */ 

/* and OUTFILE.DNX. After completion of this function */ 
/* exit program to DOS which calls Simulation Model */ 
file prnt (results[0],results[1], KDSI, DSMI); 


break; 
case 4: 
done5 = 1; /* Exits to main menu only */ 
done6 = 0; 
break; 
} 
) 
break; 
case 2: /* your selection was to create a new project */ 


wn init(); /* initialize a window for text entry */ 
w4 = wn open(0,5,10,58,12,wat,bat); /* open window w4; similar */ 
= /* to opening a file */ 
/* 5 is starting row; 10 is starting column; 58 is characters wide */ 
/* second 12 is number of rows; wat is the window attribute and */ 
/* bat the boarder attribute */ 
if(!w4) exit(1); 
wn prime £ (4, ^m K XK oC ox o0 o0 0k 00 ox o 0k ck ck ko kx k k IMPORTANT 
al okck ck ck koe ek koe eee ke kN n") 


wn printf(w4," Anin In order to load a NEW project you must enter\n"); 


wn printf (w4," input data for both COCOMO and the Dynamic 
o Simulation. \n")> 
wn printf (w4," There are two forms on which all data must be 
entered. Wn"); 
wn printf(w4," Please enter the data as accurately as 
possible.\n\n\n\n"); 
wn printf (w4," Press [ANY KEY] to continue..."); 


/* wn printf works similar to fprintf: prints to window vice file */ 


pruantfi(" 
pent. (" 
peuncf(" 
pronmtf(" 
pent £(" 


peat ft (" 


v_getch(); 
wn_ close (w4); 


/* Front end; allows user to make necessary inputs for the */ 
/* Dynamic Simulation Model; Inputs appear one at a time and */ 
/* there must be an entry for each variable; all inputs will */ 
/* be stored in an array DSMI */ 
clrserzü0- 

KKKKKKKKKKKKKKKKKKK KKK KR KK RRR KR KKK KK KK RN * 


E DYNAMIC SIMULATION MODEL INPUTS "Nnm 
KKKKKKKKKKKKKKK KK KK KKK KR RRR RR RR RK RK KKK \ I \) : 
Input the following: \n\n"); 
1. Initial Under Staffing Level Factor: "); 
Scanf("$£",&DSMI[O01); 
2. Average Daily Manpower per Staff Member:  "); 
scanf ("%f£",£DSMI[(1]); 
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printf: 34 Hiring Delay: mT); 
scanf (" S£", &DSMI[2]); 


prunttf 4. Average Employment Time:  "); 
scantf("*f'" &DSMI[ I); 

printf 5. Training Overhead:  "); 
scanf ("$£",&DSMI[4]); 

prantf(" 6. Average Assimilation Delay:  "); 
scanf("*f"-&DSMI[5])* 

printf” 7. Error Rate (Must enter 6 input values): \n"); 


for(i=0; i < 6; i++) 
( 


Printed Error rate |td) mae) 
scanf ("%f£",£DSMI(i+6]); 
) 
¡eos 8. Planned Fraction of Manpower for QA Mn"); 
prinesQs (Must enter 10 input values): An"); 


for(i=0; i < 10; itt) 
{ 
PEINE LC Manpower for QA[$d]: ", (1+1)); 
scanf("$f",&DSMI[i*12]); 
) 
print (a 9. DEVPRT: "); 
scanf ("4f &DSMI[22]):; 
/* entries to the PCNT array are for nominal productivity calculation */ 


printi? 10. Nominal Potential Productivity Man Day percent 
inputs dE omae 
Print Eg Percent MD for tests: "); 
scanf ("$£",&PCNT[0]): 
printf (“nn (Please be consistent with TPFMQA input values)in"); 
print Percent MD for QA: vale 
scanf ("%$f", &PCNT[1]); 
Princet Percent MD for Rework: "); 


Scanf("Xr" SECNTTZI)S 


/* Allows user to make necessary inputs for the */ 
/* COCOMO Model; Inputs appear one at a time and */ 
/* there must be an entry for each variable */ 
clrscr() 


printf (" kk kk kk ke ke e e e e e ke e ke e ke ke he ke ke ke e ke e e ke ke e e ke ke e kx N DU) : 
prSHEE(" * COCOMO MODEL INPUTS ne 
Printed ke e e Heck ee ee e e e e e ok coke ke ke ke ke e e ke ke e ke ek ke kk xxx **NnXnWAn"); 
prints (“ Input the following: \n\n"”); 
printr(" l. Estimated Project Size in KDSI: 1}; 

scanf ("%$d", &KDSI[0]); /* string gets KDSI value */ 
printes 2. Enter the Project Name: "); 

scanf ("%s",£stringl); /* string gets project name */ 


strncpy (fnamel, stringl, 8); /* since dos only recognizes the first */ 

/* 8 characters fnamel takes first 8 */ 

- /* characters in stringl */ 

string[8] = A0 /* resets stringl to null set so next */ 

/* project name if short will not contain */ 

/* characters previously resident in stringl */ 
strcat (fnamel,".prf£"); /* automatically tags all project names */ 

/* with .prf to easily recognize projects */ 


elrscr Gr 

sell = wn_popup(0, 5, 15, 55, 10, wat, Datyeerncelicl ly feUr 
/* selection of basic or intermediate COCOMO */ 

switch (sell) 


102 


{ 


case 1: /* user selection basic */ 


basic = 1; 
EAF1[0] = 1.00; /* initializes schedule percent to 100 */ 
initial(cdrate); /* sets all cost drivers to nominal */ 
break; 

case 2: /* user selection intermediate */ 
basic 2 0; 
done3 2 0 ; 
EAF1[0] = 1.00; /* initializes schedule percent to 100 */ 
initial (cdrate); /* sets all cost drivers to nominal */ 
icocomo in(cdrate, EAF1,done3,fnamel); /* allows user to set */ 

/* cost driver values */ 

break; 

} 

elrscr();: 


mode = wn_popup(0, 5, 10, 50, 10, wat, bat, &intelc20, TRUE); 
/* select a mode */ 
switch (mode) 


{ 


case 1: /* Organic */ 
if (basic != 1) 
( 
eel 2: /* sets coefficient and exponents */ 
) 
else 
( 
mfl = 2.4; 
} 
expl = 1.05; 
exp2 = 0.38; 


/* calls function to do COCOMO calculations */ 
calc(results, KDSI, EAF1,cdrate,mf1,expl,exp2) ; 


break; 
case 2: /* Semi-detached */ 
Intl 3. 
expl = 1.12; 
exp2 = 0.35; 


/* calls function to do COCOMO calculations */ 
calc(results,KDSI,EAF1,cdrate,mfl,expl,exp2); 


break; 
case 3: /* Embedded */ 
if (basic !- 1) 
{ 
mfl = 3.6; /* sets coefficient and exponents */ 
) 
else 
{ 
- mfl = Lis 


expl = 1.20; 
exp2 4 0.32. 
/* calls function to do COCOMO calculations */ 
calc(results,KDSI,EAF1,cdrate,mfl,expl,exp2); 
break; 
) 
/* calls function to do nominal productivity calculations */ 
/* results[0]=Total man-days; results[2]=schedule in months */ 
DSMI[23] = prod(PCNT, results[0],results[2],KDSI); 


HS 


/* display/edit simulation model inputs */ 
model in(DSMI,PCNT,KDSI,reSults,mode,fnamel,EAF1,cdrate,donel,mf1); 


/* save updated file automatically */ 
file save (DSMI,cdrate,PCNT,fnamel,results[3],KDSI,mode,mfl); 


/* this ends the input phase and initial COCOMO calculations */ 
/* the user now goes to NEW PROJECT MENU which enables the user */ 
/* to Display/Edit or run simulation model */ 
done = 0; 
while (!done) /* New Project Menu loop */ 
{ 

cleser(): 

sel5 = wn_popup(0, 5, 10, 50, 10, wat, bat, &intelc23, TRUE); 

/* New Project Menu */ 

switch (sel5) 

( 

case 1: /* user selected Display/Edit */ 

/* display or edit simulation model inputs */ 
model_in(DSMI,PCNT,KDSI, results,mode, 
fnamel,EAF1,cdrate,donel,mf1); 


if(results[3]==1.00) /* checks if EAF = 1.00 */ 
( 
clrscr(); ./* gives user option to continue 2 
/* using basic model or use intermediate */ 
sel3 wn popup(0, 5, 10, 50, 10, wat, bat, &3 nte 
TRUE); 
switch (sel3) 
( 
case 1: /* user selected basic model */ 
basic «1; 
initial(cdrate); /* Basic model EAF values must*/ 
break; /* all be 1.00. This sets all */ 
/* cost drivers to 1.00 */ 
case 2: /* user selected intermediate model */ 
initial(cdrate); 
/* Displays cost driver screen; allows user to */ 
/* set cost drivers to desired level */ 
basic = 0; 
icocomo_in(cdrate, EAF1, 
done3, fnamel) ; 
break; 
) /* switch sel3 */ 
| ak oes 
else 
/* if BAF is othée than 1.0097 


/* displays cost drivers values and */ 
/* allows user to manipulate */ 
basic = 0; 
icocomo_in(cdrate; BAFI, done3, Enamel) ; 
} 
clrser(); 
Switch (mode) 


{ 


case 1: /* Organic mode */ 
if (basic != 1) 
{ 
nti 2. /* sets coefficient and exponents */ 


} 
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else 


{ 


mils = 2.4; 

} 

expl = 1.05; /* for man-days calculation */ 
exp2 = 0.38; 


/* function that actually does the COCOMO calculations */ 
calc (results, KDSI, EAF1,cdrate,mfl,expl,exp2) ; 


break; 
case 2: /* Semi-detached mode */ 
Mei = 3-0; 
expl = 1.12; 
exp2 — 0.35; 
calc(results,KDSI,EAF1,cdrate,mfl, 
expl,exp2); 
break; 
case 3: /* Embedded mode */ 
if (basic != 1) 
( 
mfl = 3.6; /* sets coefficient and exponents */ 
} 
else 
( 
mtl = 2v8: 
) 
expl = 1.20; 
exp2 = 0.32; 
calc (results, KDSI, EAF1, cdrate,mfl,expl,exp2) ; 
break; 


} /* switch mode */ 
/* automatically save latest changes to file */ 
file save (DSMI, cdrate, PCNT, fnamel, results [3],KDSI,mode,mf1) ; 


break; 

case 2: /* user selected to run simulation model */ 
done = 1; /* allows user to exit to initial menu */ 
done6 = 1; /* allows user to exit out of program */ 


/* calls file prnt which outputs both SIMONE.DNX */ 
/* and OUTFILE.DNX. After completion of this function */ 
/* exit program to DOS which calls Simulation Model */ 
file prnt(results[0], results[1],KDSI,DSMI); 
break; 
case 3: 
done = 1; /* allows user to exit to initial menu */ 
break; 
} 
} 
break; 
case 3: 
exit (1); /* EXITS FROM PROGRAM WITHOUT DOING SIMULATION */ 
) p 


} 
exit (0); /* EXITS FROM PROGRAM WITH DOING SIMULATION */ 
) 


105 


/* 
/* 
/* 
T 
/* 


/* 
/* 
Tx 


/* 
/* 


APPENDIX C 


KKK KKK KKK KKK KKK KK KKK KKK KKK KK KK KKK KK KKK KKK KKK KAA KKKKKAKKKA KK */ 
* Author: Richard W. Smith Advisor: Prof. Abdel-Hamid * */ 
* Program: OUTPUT Lang: C MESA 


* Used Shareware «windows.h» in project environment gy) 
oe oe oo ooo oe oe ode oe eoe ode oe oe oe oe oe oe oe nde oe de de ode ode ode oe oe oe oe nde ode oe oe oe oe oe oe oe de oe oe ode oe oe ok oko oe oe ode oe oe ooo */ 


This is one of 5 programs written and interfaced with the */ 
Dynamic Simulation Model. This particular program gathers  */ 
outfile information from several files to generate reports. */ 


The following headers were used and needed to utilize the */ 
library functions used throughout this program. */ 


#include <stdio.h> 
#include <math.h> 
#include <conio.h> 


void main(void) 


{ 


/* Declarations for variables used within this program */ 


int 1, K=0/, m=0, RbSr[i2] count. mun: 

float j, md, time, TOTMD1, TDEV1;, diff diff; 
char string[8], dest[8], string1[8], dest1[8]; 
FILE *fpin, *fdata, *results? 


/* initializes the dest (destination) string as null */ 
tor (150095879 5) 
destra] z os 


/* Read the outfile.dnx: Binary file used in reporting */ 
/* Easier to work with binary in this case */ 


if ((fdata = fopen ("outfile1l.dnx","rb"))==NULL) 
{ 


} 

else /* reads effort and schedule */ 

( 

fread((void *) &TOTMD1,sizeof(float),1,fdata); 
fread((void *) &TDEV1,sizeof(float),1,fdata); 

fclose (fdata); 

} 


fprintf (stderr, "Unable to open file %s \n", "outfilel.dnx") ; 


- 


fpin - fopen("SIMONE.OUT","r"); —7*-get output from Simula ronki 


/* GET EFFORT VALUE FROM SIMULATION OUTPUT FILE */ 


i = fgetc(fpin); /* get first character from output file */ 
while (i != 40) /* continue getting characters until ascii */ 
( [nS TO o T 


i = fgetc(fpin); 
) 
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jo fgetc(fpain); 


while (i != 41) /* now get each char and save as string */ 
{ 

string[k] = i; 

k++; 


i - fgetc(fpin); 


) 
Beringi{k) = “M0”; 
i = fgetc (fpin); 


/* GET SCHEDULE VALUE FROM SIMULATION OUTPUT FILE */ 
while (i != 40) 
{ 


} 
i= £Getc (fpin) ; 


a= £getc(fpin) ; 


while (i != 41) /* continue getting characters until ascii */ 
{ [ae ERA 

stringl[m] = i; 

m++ ; 


# = f£getec(fpin) ; 
} 


Seringl{m] = ’\0’; 

fclose (fpin) ; 

Seemtcpy (dest, string, k) ; /* copy actual effort into dest string */ 
strncpy (dest1,stringl,m); /* copy actual sked into destl string */ 
md = atof (dest); /* string to float conversion */ 


time = atof(destl); 


if (TOTMD1 >= md) /* checks if estimated effort is > actual */ 


{ 
if (TDEV1 >= time) /* checks if estimated sked is > actual */ 


( 


diff = (TOTMD1-md) /md; /* calc error rates for effort */ 
diffl = (TDEVl-time) /time; /* calc error rates for sked */ 

} 

else 

{ 
diff = (TOTMD1-md) /md; /* calc error rates for effort */ 


diffl = (time-TDEV1) /time; /* calc error rates for sked */ 


else 


if (TDEV1 >= time) /* checks if estimated sked is > actual */ 
{ 


diff = (md-TOTMD1) /md; /* calc error rates for effort */ 
diffl - (TDEV1-time)/time; /* calc error rates for sked */ 
} 
else 
{ : 
diff = (md-TOTMD1) /md; /* calc error rates for effort */ 


diffl - (time-TDEV1)/time;/* calc error rates for sked */ 


) 


/* open report file */ 
BÉSutets = fopen("REPORT.OUT","a"); 


/* output format */ 


7 


fprintf (results, "\n\n\nEstimated Actual Percent Estimated Actual 


Percent Mn"); 


fprintf (results, "man-days man-days IEEE Schedule Schedule Bor 
ND 
fprintf (results, "” %6 0f %6.0f %6.0f $6.0£ %6.0£ $6.0£ 


} 


ka", TOTMD1 md dret IDEM timers fale 
fprintf (results, "inin**** This data is available in REPORT.OUT ****\n") ; 
fprintf (results, "**** Each time the model is run REPORT.OUT will change 
****Xrn") ? 


fclose (results); 


/* display for printing report or displaying the report on screen */ 
gotoxy (15, 10); 


printf" REPORT FORMAT CHOICE\n") ; 
gotoxy (L5 1295 

printf" l - Display results\n"); 
qgotoxy (15 13); 

printf (" 2 - Print results\n"); 
gotoxy (15,14); 

PEINER: oH Seer te) a. 

götoxy (15,16); 

printf ("Enter one of the above: "); 


scanf ("%d", &num) ; 


switch (num) /* case statement exits program or to DOS */ 
{ 
case 1: 
CLESCEILIS 
exit (4); /* exit to DOS and display results on screen */ 
case 2: 
CLESCE (0% 
exit (3); /* exit to DOS and send results to printer */ 
case 3: 
exit (0); /* exit program */ 


/* end outputl program */ 
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APPENDIX D 


/* AA A A A A A A A A A A A A A A AAA AA A A AA AA AA A AA AA ACA A A A x x Xx * / 


EN Author: Richard W. Smith Advisor: Prof. Abdel-Hamid * */ 
E cProgram: Input2 Lang: C * */ 
/* * Used Shareware <windows.h> in project environment e 


/* AA AA A A A e ode ce oe ode oe oe oe ode ode oe oe eode oe de eode ode oe ode obe ode oe oe de ode oe oe ode ode oe oe ode ode oe oe oe de oe oe oe oe de ode oe oe oe eoe ox */ 


/* This is one of 5 programs written and interfaced with the */ 

/* Dynamic Simulation Model. This particular program completes */ 
/* two tasks. First it accepts input variables for the dynamic */ 
/* simulation model and COCOMO acting as a front end for the  */ 
/* model in the two project environment. Then it makes all */ 

/* the necessary COCOMO calcuations for either the Basic or  */ 

/* the intermediate versions of COCOMO for each project. */ 


/* The following headers were used and needed to utilize the */ 
/* library functions used throughout this program. */ 


#include «windows.h» 

#include <stdio.h> 

#include <math.h> 

#include <conio.h> 

#include <dir.h> 

#include <string.h> 

/* Prototypes for the functions which will be */ 
/* described below. */ 


int filelist (void); 

model in(float *,float *,int *,float *,int,char a[],float *, 
B float anteatloat) ; 

px eocomo in(float *,float *,int,char *); 

pore save(float *,float *,float *,char *,float,int *,int,float); 

void ile pass(float,float,float,float,int *,int *,float *,float *, 
E float <, float *)+ 

float interp (float); 

moe prod (float *, float, float,int *); 

eale (float *,int *, float *,£float *,£float,ʻ£float, float); 

void initial(float *); 

uosdgsmoin(float *, float *); 

Loicomo in(int *,char *); 


/* Declarations: */ 
ant bat; /* border atrib */ 
int wat; £ /* window atrib */ 


/*Pointer to files being used*/ 

FILE * textfile; 

ENNEERM fin, *fin2; 

EDPEL* fout, *fout2; 

FILE * fnew, *fnew2; 

WINDOWPTR w3; /* window declaration */ 
WINDOWPTR w4; /* window declaration */ 


109 


/* The following are static structures developed to be */ 

/* used throughout the program in pop-up menus for various */ 
/* user selection requirements. The learning curve for */ 

/* the use of windows.h was considerable, however, once */ 

/* learned it is fairly simple to create menus. */ 


static struct pmenu intelc - 
(07 FALSE MO, /* Must be FALSE */ 
LAS /* The 1 initiates which row */ 
/* The 3 determines number of lines */ 
/* The 3 determines number of lines */ 
/* which can be highlighted after row */ 


/* row,col */ 

1,:20, “INITIAL MENU mO, 

4, 12, "1 = LOAD projects from disk TTE 

S5; 12; 72 = NEW projects- T2; 

0,712, 73 = EXIT Program o y 

9, 3, "Select with number or cursor and press [ENTER]...",0, 
99. 99mm 99 


y 


static struct pmenu intelc25 = 
(0, FALSE O, 


1529-39 

1, 12, " SELECT NEW PROJECT MENU", 0, 

4, 12, "1 -= ENTER New Project 17T; 

5, 12, "2 = ENTER New Project 2.7, 2, 

6, 12, "3 ="EDIT/DISBLAY/RUN SiO 

9, 3, "Select with number or cursor and press [ENTER]...",0, 
99,. 99. $99 


Jur 


Static struct pmenu intelc23 - 
(0, PALSE 0% 
1, 4, 
20, "NEW PROJECT MENU", O, 


1, 

4, 12, "1 = Display, die Project M T mI; 

5, 12, "2 -= Display) Edit Project o2 7-12. 

6, 12, "3 = RUN Dynamic Simulation... wo, 

lp l2, "4 = QUIT menu. =; 4; 

9, 3, "Select with number or cursor and press [ENTER]...",O, 
99, IAS 


lm 


static struct pmenu intelcO - 
(0, FALSE, 0, 


1; 43 

Low ee MAIN MENU", 0O, 

3, 15, "Io - SELECT Project) tronecdisk., 2, 

4, 15, "2 = SEREGT (Project. 2 from disk. 72, 

5, 15, "3 = RUN Dynamic Simulation., 3; 

6, 15, "4 =- QUIT menu. 3, 4 

9, 3, "Select with number or cursor and press [ENTER]...",0, 
e ToT 
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static struct pmenu intelcl9 = 
(0, FALSE, O, 


250 3, 
MEI. " COCOMO MODEL", O0, 
DENIS, m" ESC - EXIT ", O, 
JEIS "l1 — Basic COCOMO Model", 1, 
215, "2 — Intermediate COCOMO Model", 2, 
7, 3, "Select the model you wish to use and press enter:",0, 
O, "",99 
); 


static struct pmenu intelc21 - 
(0, FALSE, 0, 


ou, 
1, 6, "Current data file is for the Basic COCOMO", 0, 
po, " (Select one of the following)", 0, 
Z0. "I - CONTINUE Basic COCOMO Model", 1, 
5, 10, "2 — Intermediate COCOMO Model", 2, 
7, 3, "Select the model you wish to use and press enter:",0, 
eee, "99 
y; 


static struct pmenu intelc22 = 
(0, FALSE, 0, 


D. 
1, 16, "SAVING FILES", 0, 
PEN. " (Select one of the following)", 0, 
4, 10, "1 - SAVE changes under Same Name ", 1, 
5, 10, "2 - SAVE changes under New Name", 2, 
7, 3, "Select the model you wish to use and press enter:",0, 
BINOS "",99 
y; 


static struct pmenu intelc20 = 
(0, FALSE, 0, 


2; 4; 
ITO. T COCOMO MODE SELECTION", 0, 
Po), " ESCA- EXITO, 
A "1 — Organic", 1, 
2S "2 — Semi-detached", 2, 
6, 18, "3 - Embedded", 3, 
8, 3, "Select the appropriate mode and press enter:  ",0, 
O, 0", 99 
); 


static struct pmenu intelcl - 
(0, FALSE, 0, 
, 6, 
m " RELY (Required software reliability)", 0, 
o ESC - EXIT ", O, 
BI - Very Low; 0.75", 1, 
Low; 088^. 2. 
fps - Nominal; 1.00", 3, 
ie 4 - High; 1.15",4, 
Ee 75 - Very High; 1.40", 5, 


00 5% 0 Aa NP DN 
Y NO N N 
p 
On 
~ 
3 
N 
| 


11, 3, "Select the appropriate Software Cost Driver Rating: 


DS, "".99 
Je 


static struct pmenu intelc2 - 


JST 


{ 
2 
15 224 
2, E 
d, P 
ISA 
67 3557 
Se 
PS 
99, 99, 
static 


" DATA (Database size):", 0, 

" ESCAS L EXIT T AOF 

"1 = Low: 0.94" aie 

"2 "Nominal TOO 

"3 = High; 1-089 53 

"4 = Very High; 11161747 

"Select the appropriate Software Cost Driver Rating: 
"n 99 


struct pmenu intelc3 = 


(0, FALSE Oo, 


0 30 NN 
^N ON GN GN GN ON 
p 
Cn 
` 


, Ld; 
o 
99, 99, 


hee 


static 


CPLX (Product complexity)", 0, 
n ESC - EXIT ", O, 
"l-Verv Low. 0-505717 
"Z=LOW;- 10.99, 2, 
"S-Nomanal; 17001 3; 
"q—Hvrgh; 1.15954 
"SsVerwvxHrgb; 1-309 5 
"ocExtra High; 1.65.40, 
"Select the appropriate Software Cost Driver Rating: 
"",99 


Struct pmenu intelc4 = 


(07 FALSE NU, 


r 5, 
r 2, 
[4 2 
f US 
, 15, 
,F I5; 
,F 15, 
BO 3 
SUN EIE 


TIME(Exection time constraint)", O0, 

2 ESC = EXIT "0; 

"] — Nominal: ITOO I 

"12: = High ol as 

Tre Very High 1.307,73, 

"A = Extra High; 1:.655,4, 
"Select the appropriate Software Cost Driver Rating: 
mn 99 


Static struct pmenu intelc5 - 
(0, FALSE, 0, 


2, oy 
1, 2, 
2, 2, 
QUA ES 
5; 15; 
A 
ToS 
0, 3, 
DOM 


STOR (Main storage constraint)", 0, 
z ESC- EXIT "0. 
"1  Nomrnal; 1.009%- I; 
"n2 c -—Hzghse 900699 25 
"3 — Vers Highoul-2]1 35 
n4 = Extra High; 1.56%,4, 
"Select the appropriate Software Cost Driver Rating: 
"nn 99 


static struct pmenu intelc6 = 
(OP FALSE 0) 


VIRT (Virtual machine volatility)", 0, 
n ESC - EXIT ", O, 


EZ 


0) 


IET TI = Low; 0.87", 1, 
Pato 2 = Nominal; 1.00", 2, 
o Sa = High; 1.15", 3, 

LO, "4 — Very High; 1.30", 4, 


10, 3, "Select the appropriate Software Cost Driver Rating: 


S9, "",99 


Static struct pmenu intelc?7 = 
{0, FALSE, 0, 


static struct pmenu intelc8 = 
EUDEFALSE, 0, 


, 6, 
a" ACAP (Analyst capability)", 0, 
2 ESC - EXIT ", O, 


, 
ESL "1 - Very Low; 1.46", 1, 
NO"? — Low; 1.19", 2, 
HEADS L"US = Nominal; 1.00", 3, 
EB "JI — High; 0.86",4, 
EE 5 — Very High; 0.71", 5, 


LESEN: UN 


0 30 04 NPN 


11, 3, "Select the appropriate Software Cost Driver Rating: 


99, 99, "",99 
p 


Static struct pmenu intelc9 - 
(0, FALSE, 0, 


E. o" AEXP (Applications experience)", 0, 
DEO n ESC - EXIT ", 0, 

AL. = Very Low; 1.29", 1, 

OPERETT = Low; 1.13", 2, 

CSS —= Nominal; 1.00", 3, 

IEEE "4 - High; 0.91",4, 

Cpe "5 = Very High; 0.82", 5, 

l, 
9, 


T99 


static struct pmenu intelcl0 = 
(0, FALSE, 0, e 
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2 5, 

HE T TURN (Computer turnaround time)", 0, 

2 2, " ESC - EXIT ", 0, 

JEN "] — Low; 0.87", 1, 

EMEN LL "2 -— Nominal; 1.00", 2, 

eos Ss — High; 1.07", 3, 

DENS "4 — Very High; 1.15",4, 
10, 3, "Select the appropriate Software Cost Driver Rating: 
99, 99, "",99 

y; 


3, "Select the appropriate Software Cost Driver Rating: 


27 6; 

2, " PCAP (Programmer capability)", 0, 

ene; ESCENARIO 

IP "1 — Very Low; 1.42", 1, 

EE "2 — Low; 1.17", 2, 

CAS "3 — Nominal; 1.00", 3, 

EE, “4 = High; 0.86",4, 

ES, "5 — Very High; 0.70", 5, 
11, 3, "Select the appropriate Software Cost Driver Rating: 
yoo, "",99 


js 


static struct pmenu intelcli = 


(0, 
, 


r 


, 


, 
r 
, 


“WHO BNF lh 


To, 
99, 
ie 


FALSE, 0, 

5, 

2M VEXP (Virtual machine experience)", 0, 
Deo ye ESC Erie TO; 

l5, “lL = Very Lowo"1 215-17 

15, "2 — Low SICH 2 

15, 7"3 = Nominal w€005 057 

15, "4 -- Hadghbes (029074, 


3, "Select the appropriate Software Cost Driver Rating: 


DS 


static struct pmenu intelcl2 = 


(0, 


, 
, 


3 


FALSE, 0, 

5, 

2p LEXP (Programming Language experience)", O0, 
Ze n" ESCENA 

15, "1 = Very Low: 1.14", I, 

15, 2 = Low, IZ 

15, "3 -Nominal OO 

15, "4 AS High LOr osa d. 


OO Gn 


Static struct pmenu intelcl3 = 


(0, 


` 


OTH 
-— i: HF OAIDU BNF N 


~e n ` ` ^ ` ` ` ` ` 


FALSE, 0, 

6, 

Zos W MODP (Use of modern programming practices)", 
pn ESC - EXIT ", 0, 


19, "1 -.Very Low;d1-24 aw 

15, "2 - LOW; 1.100422; 

15,. "3 - Nominal: 1.007; 3, 

15; T4 High: DIAN, 

15,.."5 = Very phigh. 0582255 55, 

3, "Select the appropriate Software Cost Driver Rating: 
IO 


static struct pmenu intelcl4 = 


(0, 


` ` ~ ~ ` ` 


oo -)9OYyU0! NN 


r 
LT 
le 


FALSE J0, 

6, 

2; TOOL (Use of software tools)", 0, 
2, " ESC - EXIT ", 0, 

15, "l - Verr Dow. I2" o 

15, "2 —SEoONDLCOIODPOD M? 

15, "3 = Nomatial as. 00. 5, 

15,5u"4 - Hag $0915. 4 

15,,"9 55 Very High 1026555, 


3, "Select the appropriate Software Cost Driver Rating: 


static struct pmenu intelc15 - 


(0, 


FALSE, 0, 

6, 
2 SCED (Required development schedule", O, 
pU ESC - EXIT ", O, 
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"Select the appropriate Software Cost Driver Rating: 


0, 


",0, 


",0, 


IS Tho = Very Low; 1.23",-1, 

Selo T2 — Low; 1.08", 2, 

3. Nominal; 1.00", "3, 

o 84 = High; 1.04",4, 

AS o Very High; 1.10", 3, 

11, 3, "Select the appropriate Software Cost Driver Rating: ",0, 
Gore 99, "",99 


/* Function which lists all the data files (*.prf) */ 
/* in the current directory.  */ 


int filelist (void) 
{ 
Steeuce ffblk ffblk; 
int done4; 
prgntf("Data file listing: inin"); 
domen e findfirst("*.prf",&ffblk,0); /* finds first .prf file */ 
while (!done4) 
{ 
prontfi(" Sana tip ff name), 
done4 = findnext (&ffblk); /* finds the next -prf file */ 
} 
rerurn(1); 


) 


/* This function accepts numerous pointers to various strings */ 
/* which allows the user to select variables from the display */ 
/* and change the value of current simulation input variables. */ 


Eodgsnmcdel in(float *fptr,float *PCNT,int *KDSI,float *results,int mode,char 
fnamel[], float *EAF1, float *cdrate,int donel, float mf1l) 
{ 

yo Declarations for this function */ 

int choicel, choice2, choice3; 

float expl,exp2; 


char stringl[] = "Organic"; 
char string2[] = "Semi-detached"; 
char string3[] = "Embedded"; 
char string[14]; 
switch (mode) /* mode variable is passed in to function */ 
( /* above for display on this screen; switch/case format*/ 
/* above for display on this screen; switch/case format*/ 
case 1l: 
Seccpy (String, String!) ; 
break; 
case 2: 
Strepy (string; string2); 
break; 
case 3: ; 
strcpv(string,string3):;: 
break; 


) 
/* clears screen and displays variables on screen in below format */ 
while(!donel) 


clrscr (a 
PELNt £ (" CkCkCkckck ck kokokokokokckckCk Ck Ck Ck Ck Kok kokokokokokokokokok kk kk Nn T) $ 


LLS 


print£f( 


MODEL INPUTS for %s Xn",fnamel)s 


prinetos %s Mode\n", string) ; 

DENCE pm e kk ke heck ce ke he ke e ce ee e e e e he e c e e fe ke ke e e de e e e e kx Nn Nn") : 

printf(" 1. INUDST:  $5.3f 8. (1) TPFMQA[1): 
w5.-3fXn",fptr L0]. fpt IZ 

printf" 2. ADMPPS: 503E (2) TPFMQA[2]: 
Soo fae tpl iy, spec toll 

Brine ei 3. HIREDY:  $5.3f (3) TPFMQA[3}: 
5 3f\n", ptr iZie teca 1a IDe 

ate 4. AVEMPT: £5 335 (4) TPFMQA[4]: 
w5.3fin" -EptEDL 2), fEESDUPSDS 

pru 5. TRPNHR:  $5.3f (5) TPFMQA[5]: 
*b5.3fXn", £pEE[ dI EpEERTIOIT 

print’ (| 6. ASIMDY: %5 3f (6) TPFMQA[6]: 
&5 3fiAn".fptri5l EpEEID DE 

DELE AI) TAE RDA XO E (7) TPFMQA[7]: 
&$5.3rfXn" tote (Oly sper loin 

printf( (2) TNERPKI2]: S523E (8) TPFMQA[8]: 
a5.3fin"  fpErl p ESpEELP3IE 

printf(" (3) TNERPK[3]:  $5.3f (9) TPFMQA[9]: 
&5.3fNDnÜO PL fperit2ls EpEr 20 - 

printf(" (4) TNERPK[4]: %5.3f (10) TPFMQA[10]: 
$5. SE\n pepe rol, tper reins 

printf (" (5) TNERPK[5]: $5.3£ 9. DEVPRT: 
+93 nt cptr [10 Ente (cie 

priucr( (6) TNERPK[6]: S535 10. DSIPTK: 
%$5.2f\n\n", fptr{1ll},fptr[23]); 

printf? 11. Size of project (KDSI): %d\n\n"?>RoSEi oie 

priatf i? 12. EXIT and SAVE changes.\n\n") ; 

/* allows user to select a variable using assigned number and */ 

/* change current value by displaying just the variable selected */ 

/* once the new value is entered fuction returns to the display */ 


/* 


Printer 


screen for user to see changes and allow additional changes */ 


Enter number of parameter you wish to change: "); 


scanf ("$d",&choicel); 


switch(choicel) 
{ 
case 1: 
elrser (jc 
gotoxy (10 210) -; 
printf("Enter Initial Under Staffing Level Factor: 
scanf ("S£",&fptr[0)]); 
break; 
case 2: 


p 


clrsero. 

gotoxy (10,10); 
printf("Enter Average Daily Manpower per Staff Member: 
scaner ("sE 7 stper( 1); 
break; 

case 3: 
elrscr () 
gotoxy (10,10); 
printf ("Enter Hiring Delay: 
Scant ("*i", Gtper{2)) > 
break; 

case 4: 


ye 


ye 


clrscr(); 
gotoxy (10710); 


LTG 


to change: 


printf("Enter Average Employment Time: we 
Scant ("S£"> cGtecr (si); 
break; 
case 5: 
elrser() ; 
gotoxy (r0, 10); 
printf ("Enter Training Overhead: gs 
scanf ("%f", &fptr[4]); 
break; 
case 6: 
elrser(); 
götoxy (10,107; 
printf ("Enter Average Assimilation Delay:  "); 
scanf ("3%f",&fptr[5]):; 
break; 


/* The TNERPK has several entries for this one variable by using */ 
/* a second set of values for each entry the user can change one */ 
/* entry at a time vice entring all the values each time even if */ 


/* one value needed to be changed.  */ 
case 7: 
preine" Enter subscript value of TNERPK parameter you wish 


ES 
scanf ("$d", &choice2) ; 
switch (choice2) 
{ 
case 1: 
clrscr(); 
gotoxy (10,9805; 
praontf("bEnter Error rate[l]: T); 
scanf ("%f", &fptr[6]); 
break; 
case 2: 
CITSCE( 
gotoxy (10,10); 
printf("Enter Error rate[2]: "); 
scant(o"*te" &feer (7 ]); 
break; 
case 3: 
eile ser (jr: 
gotoxy (10,10); 
printf ("Enter Error rate[3]: "); 
scant£("*t" &fptr[8]); 
break; 
case 4: 
clrsecr(y 
gotoxy (10; 107; 
print£f("Enter Error rate[4]: "); 
scanf ("$f",&fptr[9]); 
" break; 
case 5: 
clrscr() 
gOtoxy (10710); 
Printe (Enter Error rate[Sl: "y: 
scanf ("$f",&fptr[10]); 
break; 
case 6: 
eleser (er: 
gotoxy (l0, 10) 
Print f ("Enter Error rate[p6]:9*); 
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scanf ("4%f",  &fptr ERDE 
break; 
default: 
break; 
) 


break; 


/* TPFMQA set-up same way as TNERPK for same reasons */ 
case 8: 
prrnt£fos Enter subscript value of TPFMQA parameter you 
wish to change: my 
scanf ("*%d",£choice3); 
switch(choice3) 
{ 
case 1: 
eclrser ¢) > 
Gotoxy (10, 10) 
printf ("Enter Planned Fraction of Manpower for QA[1]: "); 
scanf£("*f",SFfptrpbu 
break; 
case 2: 
clrscr() > 
goötoxy (109, T0); 
printf("Enter Planned Fraction of Manpower for QA[2]: "); 
scant("S$£",8£ptr [1310 
break; 
case 3: 
clrscr(); 
gotoxy (10,10); 
printf("Enter Planned Fraction of Manpower for (CAMINAN 
scanf ("%f",&fptr[14]); 
break; 
case 4: 
elrser() ; 
gotoxy (10, T0); 
printf ("Enter Planned Fraction of Manpower for QA[4]: "); 
Scanf("*f",&fptrpPspy 
break; 
case 5: 
eleseni 
getoxv (0710) 
printf("Enter Planned Fraction of Manpower for QA[5]: "); 
scanf ("fly S&fptr[16]):; 
break; 
case 6: 
elrser(): 
gocoxy (10,10); 
printf ("Enter Planned Fraction of Manpower for QA[6]: "); 
scanf (T3%4f" &fpteril7]); 
break; 
case 7: 
clrscor(), 
gotoxy (10,10); 
printf("Enter Planned Fraction of Manpower for QA[7]: "); 
scant("YE", ££fptr [18105 
break; 
case 8: 
ELESCcE 
gotoxy (10,10) ; 
printf("Enter Planned Fraction of Manpower for QA[8]: "); 
SCAnE srt" &fptmrpeT 
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break; 

case 9: 
eIrScrt .; 

Gocoxy (0,10) > 


printf("Enter Planned Fraction of Manpower for QA[9]: 


scanf ("%f", &fptr[20]); 
break; 
case 10: 
clrser(),; 
goöotoxy (10; T0): 


printf("Enter Planned Fraction of Manpower for QA[10]: 


Scanr(" "wr" &«fptr[21]); 
break; 

default: 
break; 


) 
break; 
case 9: 
eI rscr)s 
gotoxyv (10; T0); 
Printf(TEnter DEVERT: T); 
Scan sa, &fptri22)); 
break; 
case 10: 
elrscr()-> 
gotoxry 10,10)? 
printf ("Enter Nominal Potential Productivity MD percent 
a) 
printen. Percent MD for tests: "); 
scanf("$£",&PCNT[0]); 


23 


e 


printf("\n Please be consistent with TPFMQA input values)in"); 


Pinti? Percent MD for QA: dy 
scanf ("3f£",£PCNT[1)); 
DEINE. Percent MD for Rework: "); 
Scans E" &PCNTI[2])-; 


break; 
case 11: 
clrsor(): 
Gotoxy (10,10) ; 


peintt (fEnter new Size of project (KDSI): "); 
scanf ("*$d",&KDSI[0]); 
break; 
default: 
donel = 1; 


) /* switch choice 1 */ 
switch (mode) 


{ 


case 1: 
explt—1t.05; 
exp2 = 0.38; 
calc (results, KDSI, EAF1, cdrate,mf1l,expl,exp2) ; 
break; 
case 2: 
expl = 1.12; 
exp2 = 0.35; 
calc(results,KDSI,EAF1,cdrate,mfl1,expl,exp2); 
break; 
case 3: 
expl = 1.20; 


BS 


04327 
calc (results, KDSI, EAF1,cdrate,mfl,expl,exp2) ; 


exp2 = 
break; 


/* Nominal productivity is one of 3 variables passed into */ 
/* the simulation model that need algorithmic calculations. */ 
/* This function will be discussed in detail below */ 
fptr[23] ="prod(PCNT, results[0],results[2] ADS ITA: 
) /* while donel */ 
) 


/* This function gives the user the opportunity to view current */ 
/* values assigned to the COCOMO 15 cost drivers and make changes */ 
/* if necessary. All cost drivers are defaulted to 1.00. */ 


void icocomo in(float *rate,float *EAF1, int done3,char *fname1) 
{ 
/* rate is an array which hold the values for determining EAF for COCOMO */ 
int choices 
int CD1,CD2,CD3,CD4,CD5, CD6, CD7, CD8, CD9, CD10 (CD11 Cpl 27 cD] 3 Cp aaa 


/* clears screen and displays the 15 cost drivers and values */ 
while(!done3) 
{ 


clrsecr ai: 

printf pv cc c e e e e e c c c c e e e e e e e e e e c ccc c e e o ke e e o o o eo e x x Xx XX T) E 
Prince? INTERMEDIATE LEVEL COCOMO MODEL INPUTS in 
perinti? for $s in", £namel); 
Prince Co UP ETSI sto oe ee : 
printi” I. RELY: $1. 2£\n"7eaceio))- 

Deiner? 2. DATA: %1,2£\n™ cace (2 ])> 

printf? 3. CPLX: 4%1.2f\n" ratelli; 

printf? 4. TIME:  $12525 n raben31) 

prrntf("' 5. STOR: X1.2fXn 0 ratelli), 

PEINE (e 6. VIRT: JS$1.2tfXn9? rael 

printi? 7. TURN: $1.2f\n",rate[6}]); 

printf” 8. ACAP: $1.2f\n", ratelli; 

printi” 9. AEXP:  $1.2fXn",rater9]»55 

printf" 10. PCAP: *$1.2f^n'"-rateq9])- 

printi” ll.  VEXP: *1-2f' n'"-rateTqu0l)s 
printf(" 12. —LEXP:9^7*1 2f n" raterri] 

permet (™ 13. MODP: %1.2f\n",rate[1l2]); 
DEISDER(" 14. | TOOL; —$*$1.2fXn")raieq3 
prine? 15. SCED: %1.2f\n\n", pate lie 
printf(" 16: Press [16 or 0] when entries are 


complete.\n\n") ; 


/* allows user to select one of the above cost drivers by number */ 
/* using the case statments the program calls specific pop-up */ 
/* menus for the user to select specific values from and return */ 
/* to display screen to see changes. */ 
printed Select Cost Driver and press [Enter]: "); 
scanf ("%d",£choice); 
switch(choice) 
( 
case 1: 
CD1 = wn_popup(0, 5, 15, 50, 10, wat, bat, tintelcl, TRUE)? 
switch (CD1) 
( 
case 0: 
break; 
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case 


case 


case 1l: 


ratello = 0. 75; 
break; 

case 2: 
rate[0] = 0.88; 
break; 

case 3: 
rate[0] = 1.00; 
break; 

case 4: 
rate[0] = 1.15; 
break; 

case 5: 
rate[0] = 1.40; 
break; 

) 

break; 

2 

CD2 —- wn popup(0, 5 

switch (CD2) 

{ 

case 0: 
break; 

case 1: 
rate[1] = 0.094; 
break; 

case 2: 
rate[1] = 1.00; 
break; 

case 3: 
rate[1] = 1.08; 
break; 

case 4: 
rate[1] = 1.16; 
break; 

} 
break; 

353 

CD3 - wn popup(0, 5 

switch (CD3) 

{ 

case O0: 
break; 

case 1: 
rate[2] = 0.70; 
break; 

case 2: 
rate[2] = 0.85; 
break; 

case 3: 
rate[2] = 1.00; 
break; 

case 4: 
rate[2] = 1.15; 
break; 

case 5: 
rate[2] = 1.30; 
break; 

case 6: 


, 


, 


15, 


no 
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50, 


50, 


10, 


10, 


wat, 


wat, 


bat, 


&intelcz; 


&intelc3, 


TRUE); 


TRUE); 


rate[2] = 1.65; 
break; 
) 
break; 
case 4: 
CD4 = wn_popup(0, 5, 15, 50, 10, wat, bat, 
Switch (CD4) 
( 
case O0: 
break; 


case 1: 
rate[3] = 1.00; 
break; 
case 2: 
rate [3] = 1.11; 
break; 
case 3: 
rate [3] 
break; 
case 4: 
rate [3] 
break; 


1:307 


1.66; 


} 


break; 
case 5: 
CD5 = wn popup(0, 5, 15, 50, 10, wat, bat, 
switch (CD5) 
{ 
case O0: 
break; 


case 1: 
rate[4] 
break; 

case 2: 
rate[4] 
break; 

case 3: 
rate[4] 
break; 

case 4: 
rate[4] 
break; 


il 
F^ 


2:007 


ll 
He 


2067 


I 
Ha 


$215 


ll 
He 


: 567 


} 
break; 
case 6: 
CD6 = wn popup(0, 5, 15, 50, 10, wat, bat, 
switch (CD6) 
( 
case 0: 
break; 


case 1: 
rate[5] 2 0.87; 
break; 

case 2: 
rate[5] = 1.00; 
break; 

case 3: 
rate[5] 


ll 
m 
Hp 
a 


1 


&intelc4, 


&intelc5, 


&intelco, 


TRUE); 


TRUE); 


TRUE); 


break; 
case 4: 
rate[5] = 1.30; 
break; 
) 
break; 
case 7: 
CD Mame popup (05-5, 15; 50, I0, wat; 
switch (CD7) 
{ 


case 0: 
break; 

case 1: 
rate[6] = 0.87; 
break; 

case 2: 
rate[6] = 1.00; 
break; 

case 3: 
rate[6] = 1.07; 
break; 

case 4: 
rate[6] = 1.15; 
break; 

) 

break; 

case 8: 


CD8 — wn popup(0, 5, 15, 50, 10, wat, 
switch (CD8) 
( 
case O0: 
break; 


case 1: 
rate[7] 
break; 

case 2: 
rate[7] 
break; 

case 3: 
rate[7] 
break; 

case 4; 
rate[7] 
break; 

case 5: 
ratenzp w 0.71; 
break; 


ll 
HL 


45; 


ll 
I 


2195 


ll 
E 


SN 


0.86; 


} . 
- break; 
case 9: 
CD9 —- wn popup(0, 5, 15, 50, 10, wat, 
switch (CD9) 
{ 


case 0: 
break; 


case 1: 


rate[8] = 1.29; 
break; 


t23 


Bat. 


bat, 


bat, 


&intelc7, 


&intelc8, 


&intelc9, 


TRUE); 


TRUE); 


TRUE); 


case 2^ 
rate[8])] 
break; 
case 3: 
rate[8] 
break; 
case 4: 
rate[8] = 0.91; 
break; 
case 5: 
rate[8] 
break; 


i 
HP 


713 


I 
HP 


0.0 


I 
o 


<82; 


} 
break; 
case 10: 
CD10 = wn_popup(0, 5, 15, 50, 10, wat, bat, &intelcl0, TRUE); 
switch (CD10) 
{ 
case 0: 
break; 


case 1: 
rate[9] = 1.42; 
break; 

case 2: 
rate[9] = 1.17; 
break; 

case 3: 
rate[9] = 1.00; 
break; 

case 4: 
rate[9] = 0.86; 
break; 

case 5: 
rate[9] = 0.70; 
break; 


) 
break; 
case 11: 
CD11. * wn popup(O, 5, 15, 50, 10, wat, bat, ¿£intelcl IRA 
Switch {CD11) 
{ 
case O0: 
break; 


case 1: 
rate[10] 
break; 

case 2: 
rate[10] 
break; 

case 3: 
rate[10] 
break; 

case 4: 
rate(10] 
break; 


I 
re 


se ee 


ll 
^ 


:107 


li 
— 


EDS 


I 
O 


90 


break; 
case 12: 
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CD12 = wn popup(0, 5, 15, 50, 10, wat, bat, &intelcl2, TRUE) ; 
switch (CD12) 
{ 
case 0: 
break; 


case 1l: 
rate[11] 
break; 

case 2: 
rate[11] 
break; 

case 3: 
rate[11] 
break; 

case 4; 
rate[11] 
break; 


ll 
Pp 


.14; 


ll 
— 


200 


Il 
HP 


200" 


I 
o 


OD 


) 
break; 
case 13: 
cpi wnospopup(0, 5, 157 507 107 wat, bat, sintelcl32, TRUE); 
Switch (CD13) 
( 


case 0: 
break; 


case 1l: 
rate[12] 
break; 

case 2: 
rate[12] 
break; 

case 3: 
rate[12] 
break; 

case 4: 
race 12] 
break; 

case 
rate [12] 
break; 


It 
Hp 


21247 


Il 
g— 


10; 


Il 
— 


00% 


I 
o 


d]. 


ll «n 


) 
break; 
case 14: 
CD14 = wn_popup(0, 5, 15, 50, 10, wat, bat, &intelcl4, TRUE); 
switch (CD14) 
{ 
case 0: 
- break; 


case 1: 
rate[13] 
break; 

case 2: 
rate[13] 
break; 

case 3: 
rate[13] 
break; 


I 
— 


.24; 


I 
m 


zug 


I 
Hp 


2005 
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case 4: 


rate({lL3].= 0.31; 
break; 
case 5: 
rate(13] = 0.83; 
break; 
} 
break; 


/* for the schedule cost driver need both the EAF value */ 
/* but also the actual percent of schedule compression */ 
/* or expansion for later COCOMO calculations. */ 


case 15: 
CD15 = wn popup(0, 5, 15, 50, 10, wat, bat, &intelcl5)]NPPNENE 
switch (CD15) 
{ 
case Q0: 
break; 


case 1: 
rate[14] = 1.23; 
EAF1[0] = 0.75; 
break; 

case 2: 
rate[14] = 1.08; 
EAF1[0] = 0.85; 
break; 

case 3: 
rate[14] 
break; 

case 4: 
rate[14] 1.04; 
EAF1[0] = 1.30; 
break; 

case 5: 
rate[14] = 1.10; 
EAF1(0] = 1.60; 


1.00; 


break; 
} 
break; 
default: 
done3 = 1; 
break; 


) /* while done3 */ 
} 


/* This function saves all of the current data for each project */ 
/* under a specific name specified by the user */ 


void file save(float *DSMI,float *cdrate, float *PCNT,char *“fnamel, float) EAn ame 
*KDSI,int mode float m:i) 
{ 


if ((fout = fopen(fnamel, "wb") ) ==NULL) 
{ 

fprintf(stderr, "Unable to open file %s in", fnamel); 
} 
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else 
( 

rtf nninSaving e. 9 e m $s\n\n\n\n", fnamel) ; 
DEA O el eese Sepia teens $s\n",fnamel) ; 
Rhursztet(ivoid *) DSMI,26 * sizeof(float),lI,fout); 
Bwrrte((vorird *) KDSI,sizeof(int),1,fout); 
fwrite((void *) &EAF,sizeof(float),1,fout); 
fwrite((void *) cdrate,15 * sizeof(float),1,fout); 
Eurrtet(void *) PCNT,3 * sizeof(float),l,fout); 
fwrite((void *) &mode,sizeof(int),1,fout); 
meoeree((volid *) &mfl, sizeof (float) ,1, fout) ; 
fclose(fout); 
) 

) 


/* This function provides the avenue to interface the output */ 

/* variables from this program into the simulation model via a */ 
/* text file and pass certain other variables to the OUTPUT2 */ 

/* program via a binary file for reporting estimates and actual */ 
/* results and error rates. */ 


mMeodastile pass(f£loat TOTMD1,float TOTIMD2, float TDEV1,f£loat TDEV2,int *KDSI,int 
*KDSI2,float *DSMI,float *DSMI2,float *PCNT,float *PCNT2) 
( 

ETLE *fpout; 

imei loop lim; 

eot factor[7], factor2[4], TVALS[2], TVALS2[2]; 

Hong 11,12; 


/* need to change to long, once multiplied by 1000 */ 
/* size could be out of integer range. */ 
11 = KDSI[0]*1000.0; 

l2 = KDSI2[0]*1000.0; 


/* factor and factor2 arrays contain inputs the user */ 
/* enters to control adjustment factors in data and */ 
/* the man-day percentage totals for testing, QA, and */ 
/* rework to be passed to the iterative loop program */ 
/* for use in updating the nominal productivity */ 


factor[0] *» (PCNT[0]-*PCNT[1]-*PCNT[2]); 
factor2[0] - (PCNT2[0]-TPCNT2[1]-4PCNT2[2]); 
EESTI] = 0; 


KDSI2[1]= 0; 
/* easier to pass as arrays */ 
TVALS[0] = TOTMD1; 
TVALS[1] = TDEV1; 

TVALS2[0] = TOTMD2; 
TVALS2[1] = TDEV2; 


elescr(); : 

aocoxy (10,3); 

printf("The following entries are START DATE and WORK FORCE CEILING 
entries\n"); 

gotoxy (10,4); 

printf ("for the purpose of several experiments that are outside the scope 

Stan 
goboxy (10,5); 
printf ("this thesis.in"); 


gotoxy (10,8); 


2T 


printf ("Enter the START DATE for projecto TER 

scanf("$f",&factor[5]); 

gotoxy (107, 107 

printf ("Enter the START PATE for project 2: Tm 
scanf("*f"&factor2[i3]5 

gotoxy (10 r2); 

printf ("Enter the WORK FORCE CEILING that applies to both projects:  "); 
Scanf("sf",&factor[9])- 


/* Writes to textfile EXAMPLE.DNX */ 


fprintf(textfile,; C RJBDST(I)*e3sqsd nur 
fprintf (textfile,"C RJBDSI(2)x«$*]d n5) 9902) 
fprintf(textfile,"C TOTMDI(1)—-15 0f n TIVAS O 
fprintf(textfile,"C TOTMD1(2)2$5.0fWMn", TVALS2[ 
fprintf (textfile, C TDEV1I(1)=%5. 0f\n" TVACSI T] 
fprintf (textfilej"C TDEVI(2)-$*$5 0f VXn9 p DES ZIP 
fprintf(textfilegMe. INUDST(1)5s$5.2f Xn", DSMTIO] 
fprintf(textflile,"C INUDST(2)-735-2£t Xn? ADSM] 
fprintf (textfile, "C ADMPPS (1)=%$5.2f\n", DSMI[1] 
fprintf (textfile,"C ADMPPS (2)=35.2f1in", DSMIZ [1 
fprintf (textfile,”C HIREDY (1)=45.2£\n1, DSMII2! 
fprintf(textfile,"C HIREDY(2)€«$5 2f n "OSDSMIZINZ 
fprintf(textfile,;"C AVEMPT(1)*$95.2f£Xn" DSMI 3] 
fprintf (textfile,"C AVEMPT (2)=%5.2f\n", DSMI2[3 
fprintf (textfile, "'CUTEPNHRODUES5O 2f n^, DSMI A] 
fprintf(textfile,; COTRENHR(2)235-2f n5 sut TATE 
fprintf(texttfile, (CUASIMDY(1)235.2f n | "DSMI[SI 
fprintf(textfile,;"C ASIMDY(2)£*5 2f m9 MpSME2ZI5] 
fprintf(textfile,"T  TNERP1-$5.2f  £$5.2f «5.2f . €*5.2f €$5.2f STE 
DSMI[6],DSMI[7],DSMI(8],DSMI[9],DSMI[10],DSMI[11]); 
fprintf (textt1le, T  TNERP2=%5.2f 935.2f $5.2£ ADE $5.2£ $5322 
DSMI2[6],DSMI2[7],DSMI2[8],DSMI2[9],bDSMIZ2[IO],;bDSMEPZIOP DUE 
fprintf(textfile," T TPFMQ1e€$5.3f %5.3f£ %5.3£ %5.3£ %5.3£ €*5.3f 45 PEF EE 
$5.3£ $5.3£ WAn", DSMI[E2],bDSMBDI3]ANGESMIDI4]INDSMTITSU]E 
DSMI[16],DSMI[17],DSMI[18],DSMI[19],DSMI[20],DSMI[21]); 
fprintf(textfile, T TPFMQ2**5.,3f $*5.3f $5.3£f 3%5.3£ 3573 35.231 Some I 
$5.3£ $5.3£ On", DSMI2(12],DSMI2[13],DSMI2[14],DSMI2[15], 
DSMI2[16],DSMI2[17],DSMI2[(18],DSMI2[19],DSMI2[20], DSMI2[2 DUE 
fprintf(textfile,"C DEVPRT(I1)z$5.2fXn", DSMIT22]). 
fprintf (textfile,"C DEVPRT(2)-$5.2£Xn", DSMB21 221); 
fprintf (textfile,"C DSIPTK(1)-2$5.2f/n" mDSMITZSND 
fprintf (textfile, "C DSIPTK(2)z$5 2f n9, DSMI2T29])7 
fprin-f(textfilewC STRIDT(1)—$45.2tNn", factorp5]). 
fprintf(textfile,;"C STRTDT(2)-95.2fXn", factom 
fprintf (textfile,"C NCLTWF=%$5.2f\n", factor[6]); 
fclose(textfile); 


/* The following user entries are requested here because */ 

/* it is just prior to running the simulation model. =*/ 

/* They deal directly with the iterative loop process */ 

/* The requests dictate how accurate the user wishes to */ 

/* make the results, how many iterations of the loop should */ 

/* be run and an avenue for the user to build fat(safety factor) */ 
/* into the project or prevent the model from doing so. */ 


/* If the need for manual operation of the iterative loop */ 

/* process is necessary I would ask the user one additional */ 

/* question in this series. If the the user wished a manual or */ 
/* automatic loop process. Then label it as a flag and pass it */ 
/* in the binary file to the the testio2 program. In that */ 
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/* program is where I would create the manual system. */ 


GliESCE()-; 
gGotory (10,3); 
printf("The following entries are percentages used to prevent the model\n"); 
gotoxy (10, 4) ; 
printf("from building too much fat into the effort variable in the 
pro ject. \n") ; 
goroxy (10,95); 
printf("In essence these factors simulate the managers responsibility not 
Got") ¢ 
gotoxy (10, 6) ; 
peinet ("let the productivity lag.\n"); 
astoxy (10,89); 
printf ("Enter the Effort adjustment factor in project 1 as a percent: "); 
scanf ("%f", &factor[1]); 
gotoxy (10,10); 
printf ("Enter the Effort adjustment factor in project 2 as a percent:  "); 
Scanf("*f" &factor2[1]); 
nobpoxy (10,12); 
printf("Enter the Schedule adjustment factor in project 1 as a percent: "%; 
scanf ("%£", &factor[2]); 
getoxy (10,14) ; 
printf ("Enter the Schedule adjustment factor in project 2 as a percent: 
n 


) ; 
scanf("*$f",&factor2[2]); 
gouoxy (10,18); 
printf("The following entries allow you to choose the accuracy level anin’); 
gocoxy (10,19); 
printf ("limit the number of loops the model will run before completion. \n"); 
Hotoxy (10,21); 
printf ("Enter the accuracy level for Effort as a percent:  "); 
scanf ("$£",£factor[3]); 
sotrtoxy (10,23); 
printf ("Enter the accuracy level for Schedule as a percent: Ne 
scanf ("$£", &factor[4]}); 
metoxy (10, 25) ; 
printf ("Enter the limit of the maximum number of loops the model will do: 
ee 


, 
Sscanf ("*$d",&loop lim); 
/* Binary output file for use by output2 */ 


if ((fpout = fopen("outfile2.dnx", "wb") ) ==NULL) 
{ 


} 

else 

{ 

fwrite ((void *) DSMI,26 * sizeof (float) ,1,fpout); 
iwrzxtettvord *) DSMI2,20 * sazeot (tloat); 1, fpout) ; 

write ((void *) KDSI,2 * sizeof (int) ,1,f£pout) ; 
bwreste((vosd *)KDSI2,2 * sizeof(int),l,fpout); 

fwrite((void *) TVALS,2 * sizeof(float),1,fpout); 
twrite((void +) TVALS2,2 * 7sizeot (float) , 1, fpout) ; 

fwrite ((void *) factor,7 * sizeof (float) ,1, fpout) ; 

fwrite((void *) factor2,4 * sizeof (float),1,fpout) ; 

fwrite( (void *) &loop lim, sizeof (int),1,fpout) ; 

fclose (fpout) ; E 

) 


fprintf(stderr,"Unable to open file %s \n", "outfile2.dnx") ; 
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) 
/* Part of the calculation for Nominal Productivity requires */ 
/* interpolation. This function accepts staff size variable */ 
/* and returns communication overhead factor for use in determining */ 
/* Nominal Productivity ^ 
float"interp(float stare) 
| float covhd; 
if ((stf size >= 0) && (stf_size <= 5)) 
| covhd = (((stf T 3ize-0) ROIS SE 
if ((stf size » 5) && (Stf sizer 07D 
covhd = (((stf size-5) ^ .045)/5) FZOrS; 
if ((stf.size > I0) css (sc ft size = iS 
covhd = (((st£ size-10)* 075) SEDE 
if ((stf size > 15) &4 (stf g1ze 120) 
covhd = (((stf size-15)*% .105)/5) Fm5; 
if ((stf size > 20) cesto size cio) 
covhd = (((stf size-20)3080135)/5) 5500247 
if ((stf_size > 25) && (stf_size <= 30)) 
covhd = (((sttsi 76-25) 2165) /5) eestor 
if (stf size 02-7309) 
covhd = .54; 
me covbhss; 


) 


/* This function does the Nominal Productivity calculations */ 
/* TOTMD1 - Effort passed from main function in man-days */ 


/* TDEV2 - Schedule in months not days! */ 

/* PCNT - array from main function which passes $Testing,$QA */ 
/* and $Rework for man-days */ 

/* MM - Effort in man-months */ 


/* stf size - Average Staff Size - MM/TDEV2 */ 
/* DEVMD - Development man-days */ 

/* ADP - Actual Development Productivity */ 
/* covhd - Communication Overhead */ 

/* product - Nominal Productivity */ 


float prod(float *PCNT, float TOTMD1, float TDEV2,int *KDSI) 


{ 
float MM,stf size,DEVMD,ADP,covhd; 
float product; 


MM = TOTMD1/19; 
stf size = MM/TDEV2; 
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DEVMD - (1-(PCNT[O0]-*PCNT(1]-*PCNT[2])) *TOTMD]1; 

ADP = (KDSI(0O] * 1000.0)/DEVMD; 

covhd = interp(stf size); /* call interpolation function */ 
product = ADP/(0.6 * (1.0-covhd)); 

return product; 


) 


/* This function completes COCOMO calculations for input into */ 

/* simulation model */ 

/* result array is used to hold man-day and schedule results */ 

/* EAF1 contains the percent to multiply TDEV by from cost driver 15 */ 
/* mfl, expl and exp2 are the coefficients and exponents passed */ 

DE E com main function */ 


void calc(float *result,int *KDSI,float *EAF1,float *cdrate,float mfl,float 
expl, float exp2) 
( 
Ent 1; 
float EAF; /* Estimated Adjustment Factor */ 
EAF = 1.00; 
fom (1=07;1<15;1++) 
{ 
EAF *= cdrate[i]: /* Calculate the EAF by multiplying each */ 
/* cost driver by one another */ 
} 
/* Total man-days calculation */ 
result[0] - mf1 * (pow(KDSI(0],exp1)) * 19.0 * EAF; 


/* if cost driver 15 (schedule) is nominal then calculations */ 
/* are straight forward. If not you must divide the man-days */ 
/* by cdrate[14] or calculate total man-days as if schedule */ 
/* was nominal. */ 


if (EAF1[0] !-2 1.00) 
| result(1] » 2.5 * pow(((result[0]/19.0)/cdrate[14]),exp2) * EAF1[0] * 
Qu result(2] = 2.5 * pow(((result(0]/cdrate(14])/19.0),exp2) * EAF1(0]; 
ee 
npesult[tl.- 2.5 * pow((result[0]/19.0),exp2) * 19.0; 
result(2] » 2.5 * pow((result[0]/19.0),exp2); 


) 
result[3] = EAF; 
return; 


} 


/* Small function that simply initializes all the */ 
A OSE drivers to 1 */ 


void initial(float *cdrate) 


( 
Tat 1; 
for(i=0;i < 15; itt) 
{ 


} 


cdrate[i] = 1.00; 


return; 
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/* Fuction to accept initial project variable entries for simulation model */ 
void dsm in(float *DSMI C flodte PENT) 


{ 


) 


int i 


/* Front end; allows user to make necessary inputs for the */ 
/* Dynamic Simulation Model; Inputs appear one at a time and */ 
/* there must be an entry for each variable; all inputs will */ 
/* be stored in an array DSMI */ 


Clreer (5, 
printe: ERARERARERAERERERERERARA RA RENE RANA RA RARA NO 
PELE Ey * DYNAMIC SIMULATION MODEL INPUTS Xn 
Primt tf. KKEKKKKKKKKKKKKKKKKKKKEKREKKKEKRERERERKEKERE\ NT") 5 
print Input the following: nunt 
proantr S l. Initial Under Staffing Level Factor:  "); 
scant ("SE", sDSMLlO 
prrutf o5 2. Average Daily Manpower per Staff Member:  "); 
scanf ("%£", &DSMI[1]) ; 
print 3. Arima Delay: n]? 
scanf ("%$f", &DSMI[2]); 
Printi? 4. Average Employment Time: "); 
scanf ("%$f", &DSMI[3]); 
prince 5. Training Overhead:  "); 
scanf ("*$£",&DSMI[4]); 
pronto 6. Average Assimilation Delay:  "); 
scant(i sf" SDSMITS]SS 
printf" 7. Error Rate (Must enter 6 input values): in"); 
for(i=0; AS O 9)) 
( 

print t (5 Exxrorurate [a 75 (IDE 

scanf ("%£",£DSMI[i+6])); 
) 
princi" 8. Planned Fraction of Manpower for QA \n"); 
Prince (Must enter 10 input values): An"); 
for(i=0; i < 10; i++) 
{ 

Prine a Manpower for QA[%d]: ", (i+1)); 

scanf ("4f &DSMITIFt12]):; 
} 
printe! 9. TDEVERTI "> 
scanf ("$f", &DSMI[22]); 
Princes 10. Nominal Potential Productivity Man Day percent 

inputs: NA 
/* Following entries are necessary for above productivity calculation */ 
prometo Percent MD for tests:  ')j 
scanf ("%£",£PCNT[O])); 
printf. na (Please be consistent with TPFMQA input values)in"); 

Print es Percent MD for QA: m) > 
scanf ("%$f", &PCNT[1]); 
princes Percent MD for Rework: "); 


scanf ("%f", &PCNT[2]); 


/* Fuction to accept initial project variable entries for COCOMO */ 
void como in(int *KDSI,char *fnamel) 


{ 


char stringl[25]; 
/* Allows user to make necessary inputs for the */ 


/* COCOMO Model; Inputs appear one at a time and */ 
/* there must be an entry for each variable */ 
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elrscr (); 


prance £(™ KRAEKKKKKKKKKKKKKEKEKKKKKKKKKKKKKKKKKKKKKKK\ n tty E 
ae * COCOMO MODEL INPUTS An"); 

printf n Ck ck oko AAA RARA AAA AAA RA RARA RAR RARA ARA A nin") s 
printfií(" Toput the following: AN\n"); 
princtfi(" IlxEstumated Project Size in KDSI: ™); 
Seant ("%d", &KDSI[0])> /* string gets KDSI value */ 
printfi(" 2. Enter the Project Name: "); 
scanf("$s",&stringl); /* string gets project name */ 


strncpy(fnamel, stringl, 8); /* since dos only recognizes the first */ 
/* 8 characters fnamel takes first 8 */ 
/* characters in stringl */ 
seringl[8] 9 'XO'; /* resets stringl to null set so next */ 
/* project name if short will not contain */ 
/* characters previously resident in stringl */ 
strcat(fnamel,".prf"); /* automatically tags all project names */ 
/* with .prf to easily recognize projects */ 


void main() 


{ 
/* Declarations */ 


int i, done=0,donel=0, done3=0, done5=0, done6=0, done7=0; 
int sel, sell, sel2, sel3, sel4, sel5, sel6; 

int mode, mode2; 

int projectl = 0, project2 = 0; 

BENHESKEDSI[2], KDSI2[2]; 


float EAF1[1], EAF2[1]; 

float cdrate[15], DSMI[26], PCNT[3],results[4]; 
float cdrate2[15], DSMI2[26], PCNT2[3],results2[4]; 
float mfl, mf2, expl, exp2; 


char fnamel[(13]; 
char fname2[13]; 
char newname[13]; 
suse string[25]; 
charostringl[25]; 


meten, basic; 


/* creates textfile which is interface with simulation model */ 
textfile - fopen("simtwo.DNX","w"); 


/* initializes scedule cost driver to 1 for both projects */ 
EAF1[0] = 1.00; 
EAF2[0] = 1.00; 


/* bat is the boarder attribute for the pop-up window */ 
/* sets background to blue and boarder to white */ 
bat = y _setatr (BLUE, WHITE, 0,0); 


/* wat is the window attribute for the pop-up window */ 
/* sets background to blue and text to white */ 


93 


wat = v_setatr (BLUE, WHITE,0,0); 


/* this while statement gets program started always initiated on */ 
while (!done6) 
{ 
clrser(); /* pop-up initial menu */ 
/* allows user to go to main menu */ 
/* create a new project or EXIT */ 
sel = wn_popup(0, 5, 10, 55, 10, wat, bat, &intelc, TRUE); 


Switch (sel) 


{ 


/* SELECT PROJECT FILES FROM DISK AND EXECUTE SIMULATION MODEL */ 


case 1: /* go to Main Menu */ 
done5=0; 
while (!done5) 
{ 
clrscr(); /* Main Menu will allow user to */ 
/* list, select, run simulation */ 
/* or exit this menu * / 


sel2 —- wn popup(0, 5, 10, 55, 12, wat, bat, &intelc0, TRUE); 


Switch (sel2) 
{ 
/* PROJECT 1 RETRIVAL FROM DISK */ 
case 1: 
filelist(); /* calls function to list all *.prf files */ 
/* user can look at list and enter file name */ 
print£("\n\n:> Enter project filename: "); 
scanf ("%s", &fnamel) ; 
/* if name of file is mis-entered program goes back to */ 
/* main menu */ 
if ((fin = fopen(fnamel, "rb") )==NULL) 
{ 
fprintf(stderr,"Unable to open file %s to read\n", fnamel) ; 
continue; 
} 
/* read in the data of the selected filename */ 
fread((void *) DSMI; 26 * sizeof(float); 1, fin): 
fread( (void *) KDSI,Srzeocf(1int) |, fan); 
fread ( (void *) &results[3],sizeof(float),1,fin); 
fread((void *) cdrate,15 * sizeof(float),1,fin); 
fread( (void *) PCNT,3 * sizeof (float),1, fin); 
fread( (void *) &mode, sizeof (int),1, fin); 
fread((void *) &mfl,sizeof(float)o 15 ErXn)r 
fclose(fin); 
/* re-intialize */ 
donel s 0; 
project1 = 1; 
/* function described above which allows user to display */ 
/* on screen the variables for the simulation model less */ 
/* the COCOMO variables */ 
model in(DSMI,PCNT,KDSI,results,mode, 
fnamel,EAF1,cdrate,donel,mf1); 


if (results [3]==1.00) 
{ 
clrscr(); /* gives user option to continue */ 
/* using basic model or use intermediate */ 
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sel3 = wn _popup(0, 5, 10, 50, 10, wat, bat, &intelc21, TRUE); 
switch (sel3) 
{ 


case 1: /* user selected basic model */ 
basic = 1; 
initial(cdrate); /* Basic model EAF values must */ 
break; /* all be 1.00. This sets all */ 
/* cost drivers to 1.00 */ 
case 2: /* user selected intermediate model */ 
basic = 0; 


initial (cdrate) ; 
/* Displays cost driver screen; allows user to */ 
/* set cost drivers to desired level */ 
icocomo in(cdrate,EAF1,done3,fnamel); 
break; 
) /* switch sel3 */ 
) AE ^y 
else /* if EAF is other than 1.00 */ 
{ 
/* displays cost drivers values and */ 
/* allows user to manipulate */ 
basic = 0; 
icocomo_in(cdrate, EAF1,done3, fnamel) ; 


elrscr(): 
/* pop-up menu for user to select COCOMO mode */ 
mode = wn _popup(0, 5, 10, 50, 10, wat, bat, &intelc20, TRUE); 


switch (mode) 
{ 


case 1: /* Organic mode */ 
if (basic != 1) 
{ 
meL 32 /* sets coefficient and exponents */ 
) 
else 
{ 
Mel = 2.45 
) 
expl = 1.05; /* for man-days calculation */ 
exp2 = 0.38; 


/* function that actually does the COCOMO calculations */ 
calc (results, KDSI, EAF1,cdrate,mfl1l,expl,exp2) ; 


break; 

case 2: /* Semi-detached mode */ 
meloe>. 3.0; 
explum. 1:12; 


exp2 0.35; 
calc (results, KDSI, EAF1,cdrate,mfl,expl,exp2) ; 


break; 
case 3: /* Embedded mode */ 
if (basic != 1) 
{ 
mfl = 3.6; /* sets coefficient and exponents */ 
} 
else 
{ 
mE 7-85 
} 
expl = 1.20; 
exp2 = 0.32; 
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calc(results,KDSI,EAF1,cdrate,mfl,expl,exp2); 
break; 
) /* switch mode */ 
/* allows user to save current datafile under the same name */ 
/* or save the same or manipulated data under a new name */ 
sel4 = wn popup(0, 5, 10, 55, 10, wat, bat, &intelc22, TRUE 


Switch (sel4) 
{ 
case 1: /* save in same file */ 
file save (DSMI,cdrate, PCNT, fnamel, 
results[3],KDSI,mode,mf1); 


break; 

case 2: /* if you are changing the name of the file */ 
elrscr() ; 
gotoxy (12; 10); /* enter new name */ 
printf("Enter the new project filename:  "); 


scanf ("$s",&string); 


/* Program lets user enter more than 8 characters */ 
/* for filename. This copies first 8 characters */ 
/* into nem filename variable */ 
strncpy(fname2, string, 8); 
strsng[8)] o - "NDA /* resets string to null */ 
strcat(fname2 " DEI"). /* automatically adds ".prf" */ 


/* writes new file to disk */ 
fnew = fopen(fname2, "wb") ; 
fwrite((void *) DSMI,26 * sizeof (float) ,1, Enew) ; 
fwrite((void *) KDSI, sizeof (int) ,1, fnew) ; 
fwrite((void *) é&results{3],sizeof (float) ,1, fnew) ; 
fwrite((void *) cdrate,15 * sizeof (float),1, fnew) ; 
fwrite((void *) PCNT,3 * sizeof(float) ,1, fnew) ; 
fwrite((void *) &mode, sizeof (int),1, fnew) ; 
fwrite((void *) &mfl, sizeof (float),1, fnew) ; 
fclose (fnew); 


) 


break; 
/* PROJECT 2 RETRIVAL FROM DISK */ 
case 2: 
filelist(); /* calls function to list all *.prf filesi 


/* user can look at list and enter file name */ 
printf("\n\n:> Enter project filename: "); 
scanf ("%s", &fname2) ; 


/* if name of file is mis-entered program goes back to */ 
/* main menu */ 
if ((fin = fopen(fname2, "rb") ) ==NULL) 
{ 
fprintf (stderr, "Unable to open file %s to read\n", fname2) ; 
continue; 
} 
/* read in the data of the selected filename */ 
fread( (void *) DSMI2,26 * sizeof (float),1l,fin); 
fread ( (void *) KDSI2, sizeof (int),1l,fin); 
fread ( (void *) &results2[3],sizeof(float),1l,fin); 
fread ( (void *) cdrate2,15 * sizeof (float) 1 tin). 
fread ( (void *) PCNT2,3 * sizeof(float),1,fin); 
fread((void *) &mode2,sizeof(int),1,fin); 
fread((void *) &mf2,sizeof(float),1,fin); 
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fclose(fin); 

/* re-intialize */ 

donel = 0; 
project2 =T; 


/* function described above which allows user to display */ 
/* on screen the variables for the simulation model less */ 
/* the COCOMO variables */ 
model in(DSMI2.PCNT2.KDSIZ2,results2,mode2, 

E fname2,EAF2,cdrate2,donel, mf2); 


if(results2[3]==1.00) 
( 
clrscr(); /* gives user option to continue */ 

/* using basic model or use intermediate */ 
sel3 = wn_popup(0, 5, 10, 50, 10, wat, bat, &intelc21, TRUE); 
switch(sel3) 
( 


case 1: /* user selected basic model */ 
basic = 1; 
initial (cdrate2);  /* Basic model EAF values must */ 
break; /* all be 1.00. This sets all */ 
/* cost drivers to 1.00 */ 

case 2: /* user selected intermediate model */ 
basic - 0; 


znitzal(cdrate2); 
/* Displays cost driver screen; allows user to */ 
/* set cost drivers to desired level */ 
icocomo in(cdrate2,EAF2,done3,fname2); 
break; 
l]ac* swztehesel3 */ 
p wt cita 
else /* if EAF is other than 1.00 */ 
{ 
/* displays cost drivers values and */ 
/* allows user to manipulate */ 
basic = 0; 
icocomo_in(cdrate2, EAF2, done3, fname2) ; 
) 


clrscrí(): 
/* pop-up menu for user to select COCOMO mode */ 
mode2 « wHEpopup(0, 5; 10, 50, 10, wat, bat, &intelc20, TRUE) ; 


switch (mode2) 


{ 


case 1: /* Organic mode */ 
if (basic != 1) 
mf? = 3.2; /* sets coefficient and exponents */ 
i ARE 
) metz v2.4; 
MM = 21.05; /* for man-days calculation */ 


exp2 = 0.38; 
/* function that actually does the COCOMO calculations */ 
calc (results2, KDSI2, EAF2, cdrate2,mf2,expl,exp2) ; 


break; 
case 2: /* Semi-detached mode */ 


m 


mt21 == 3207 
expli I2; 
exp2 = 0.35; 
calc (results2, KDSI2, EAF2, cdrate2,mf2,expl1, exp2) ; 
break; 
case 3: /* Embedded mode */ 
if (basic != 1) 
{ 
mf2 3:6. /* sets coefficient and exponents */ 
) 
else 
( 
MEZIA = 2.8 
) 
explo z 1.20; 
exp2 “= 0.32; 
calc (results2, KDSI2, EAF2,cdrate2,mf2,expl,exp2) ; 
break; 


) /* switch mode */ 


/* allows user to save current datafile under the same name */ 
/* or save the same or manipulated data under a new name */ 
sel4 = wn popup(0, 5, 10, 55, 10, wat, bat, &intelc22, TRUE 


switch (sel4) 
( 
case 1: /* save in same file */ 
file saye (DSMIZ,  cdaratez2 PCNIT2,fname?, 
results2[3],KDSI2,mode2,mf2); 


break; 

case 2: /* if you are changing the name of the file */ 
CLrscr()., 
götoöxy (12,10) /* enter new name */ 
printf("Enter the new project filename:  "); 


Scanf("$s",&string); 


/* Program lets user enter more than 8 characters */ 
/* for filename. This copies first 8 characters */ 
/* into nem filename variable */ 
strncpy(newname, string, 8); 
string[8] = ’\0’; /* resets string to nubes 
strcat(newname,".prf"); /* automatically adds ".prf" */ 


/* writes new file to disk */ 
fnew2 = fopen(newname, "wb") ; 
fwrite((void *) DSMI2,26 * sizeof (float),1,fnew2) ; 
fwrite( (void *) KDSI2,sizeof(int),1,f£fnew2); 
fwrite( (void *) &results2[3],sizeof(float),1,fnew2); 
fwrite( (void *) cdrate2,15 * sizeof (float),1,fnew2); 
fwrite( (void *) PCNT2,3 * sizeof(float),l,fnew2); 
fwrite((void *) &mode2,sizeof(int),1,fnew2); 
fwrite((void *) &mf2, sizeof(float),1,fnew2); 
fclose(fnew2); 


) 


break; 


/* RUNS TWO PROJECT DYNAMIC SIMULATION */ 
case 3: 


/* This is an error checking routine to ensure */ 
/* both projects are loaded before executing the */ 
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/* simulation model */ 
if (projectl) /* projectl is a flag */ 
/* when 1 projectl is loaded */ 
/* when O0 projectl is not loaded */ 


if (proj ject.) 7/* project2 is a flag */ 
/* when 1 project2 is loaded */ 
/* when O0 projectl is not loaded */ 
{ 
/* Both projects are loaded, save files and execute simulation */ 
done5 = 1; 
done6 = 1; 
fiteepacs( resus |G); results2 (0), results (i), 
results2[1],KDSI,KDSI2,DSMI, DSMI2, PCNT, PCNT2) ; 
} 
else 
{ 
/* Only project 1 is loaded, will not proceed */ 
cirscrqi s 
qotoxry G07 10); 
printf("You have not selected Project 2.\n"); 
qocoxy (107 11); 
prince ("Both projects must be selected to run 
simulation. \n"); 
Goto (MUS) 
printf ("Press any key to continue......... a es 
getch(); 
} 
) 
else 
( 
PEN (proJect2) 
( 


/* Only project 2 is loaded, will not proceed */ 
elrser (); 

gotoxy (10,10); 

printf ("You have not selected Project 1.\n"); 
götoxy (10,11); 

Printi (TBoth projects must be selected to Eun 
simutation 1a")> 

gotoxy (10, 15); 

printf ("Press any key to continue......... mt) 

geten): 


else 


/* Neither project is loaded, will not proceed */ 

clrescr (y; 

gotoxy 10,10)? 

printf ("You have not selected Project 1 or Project 2.\n"); 

: gotoxy (10 L1 

prince Both projects must be selected to Lon 
simulation. \n"); 

gotoxy (10,15); 
prinpe Press any key to continue... ...... Ane) 

getch(); 

) 
) 


break; 


/* EXITS CURRENT MENU TO PREVIOUS MENU (INITIAL MENU) */ 
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case 4: 
done5 
done6 
break; 

y /* sel2 */ 

y /* while done5 */ 
break; 


I? 
0; 


/* CREATE NEW PROJECT FILES AND EXECUTE SIMULATION MODEL WHEN COMPLETE */ 
case 2: 

wn init(); /* initialize a window for text entry */ 

w4 — wn open(0,5,10,58,10,wat,bat); /* open window w4; similar */ 

7 /* to opening a file */ 

/* 5 is starting row; 10 is starting column; 58 is characters wide */ 
/* second 12 is number of rows; wat is the window attribute and */ 
/* bat the boarder attribute */ 

if(!w4) exit(1); 


wn printf(w4, 
wn printf(w4, 
wn printf (w4, 
wn printf(w4, 
wn printf(w4, 
wn printf (w4, 


\n kkkkkkkkkkkkkkkkkkk IMPORTANT kk ok kk ke ke ke ke e e ke ke k k A a n"); 

\n\n In order to load NEW projects you must enterin"); 

input data for both COCOMO and the Dynamic Simulation. \n") ; 

There are two forms on which all data must be entered.\n"); 

Please enter the data as accurately as possible.\n\n\n\n"); 
Press [ANY KEY] to continue. <.."); 


23 3 3 33i 


v geẹtch(); 
wn Close (w4) ; 
done7=0; 
while (!done7) 
{ 
clrscrt): 
/* Pop-up window for New Project selection */ 
sel6 — wn popup(0, 5, 15, 55, 10, wat, bat, &intelc25, TRUE); 
switch(selo) 
( 
/* NEW PROJECT 1 ENTRIES */ 
case 1: 


/* This function allows user to enter simulation variables */ 
/* into two arrays for project 1 */ 
dsm in (DSMI,PCNT); 


/* This function allows user to enter COCOMO variables */ 
/* into an array and name the new projectl file */ 
como in(KDSI,fnamel); 


crirscr QE 
sell.*-wn popup(O, 5, 15, 55, 10, wat; Dat, sintelcl9 TRUE 
/* selection of basic or intermediate COCOMO */ 
switch (sell) 
{ x 
case 1: /* user selection basic */ 
basic = 1; 
EAF1(0} = 1.00;/* initializes schedule percent to 100 */ 
initial (cdrate); /* sets all cost drivers to nominal */ 


break; 
case 2: /* user selection intermediate */ 
basic = 0; 
done3 = 0; 
EAF1[0] = 1.00;/* initializes schedule percent to 100 */ 


initial (cdrate); /* sets all cost drivers to nominal */ 
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icocomo in(cdrate,EAFl,done3,fnamel); /* allows user to set */ 
/* cost driver values */ 
break; 


) 


OISE): 


mode = wn_popup(0, 5, 10, 50, 10, wat, bat, &intelc20, TRUE); 
/* select a mode */ 
switch (mode) 


{ 


case 1: I Organic “/ 
if (basic != 1) 
{ 
E Zi /* sets coefficient and exponents */ 
) 
else 
( 
mfl = 2.4; 
) 
expl = 1.05; /* for man-days calculation */ 


exp2 = 0.38; 
/* calls function to do COCOMO calculations */ 
calc (results, KDSI, EAF1,cdrate,mfl,expl,exp2); 


break; 
case 2: /* Semi-detached */ 
Mote 3. 0° 
expl = 1.12; 
exp? = 0.357 


/* calls function to do COCOMO calculations */ 
calc (results, KDSI, EAF1,cdrate,mfl,expl,exp2) ; 


break; 
case 3: /* Embedded */ 
if (basic != 1) 
{ 
mfl = 3.6; /* sets coefficient and exponents */ 
) 
else 
( 
mfl = 2.8; 
) 
expl = 1.20; 


exp2 = 0.32; 

/* calls function to do COCOMO calculations */ 
calc (results, KDSI, EAF1,cdrate,mfl,expl,exp2) ; 

break; 


/* calls function to dó nominal productivity calculations */ 
/* results[0]=Total man-days; results[2]=schedule in months */ 
DSMI [23] = prod(PCNT, results[0],results[2],KDSI); 

/* display/edit simulation model inputs */ 


model in(DSMI,PCNT,KDSI,results,mode, 
fnamel,EAFI1,cdrate,donel,mf1); 


/* save updated file automatically */ 
file save(DSMI,cdrate,PCNT,fnamel,results[3],KDSI,mode,mfl1); 


projectl = 1; /* Flag when equal to 1 indicates projectl 
loaded */ 


/* this ends the input phase and initial COCOMO 
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calculations */ 
/* for projectl the user will return to menu to select news 
/* project2, to Display/Edit or to run simulation model */ 
break; 


/* NEW PROJECT 2 ENTRIES */ 
case 2: 


/* This function allows user to enter simulation variables */ 
/* into two arrays for project 2 */ 
dsm in(DSMI2 7 RCNT 2) 


/* This function allows user to enter COCOMO variables */ 
/* into an array and name the new project2 file */ 
como in(KDSI2,fname2); 


cIrscrQ- 
sell wn popup(O0, 5, 15, 55, 10, wat, bat, &intelcl9, RUE 
/* selection of basic or intermediate COCOMO */ 
switch(sell) 
{ 
case 1: /* user selection basic */ 
basic = 1; 
EAF2[0] = 1.00;/* initializes schedule percent to 100 */ 
initial (cdrate2); /* sets all cost drivers to nominal */ 


break; 
case 2: /* user selection intermediate */ 
basic = 0; 
done3 = 0 ; 
EAF2[0] = 1.00; /* initializes schedule percent to 100 */ 


initial(cdrate2); /* sets all cost drivers to nominal */ 

icocomo in(cdrate2,EAF2,done3,fname2);/* allows user to set */ 
i /* cost driver values */ 

break; 


) 


clrscr(); 


mode2 - wn popup(0, 5, 10, 50, 10, wat, bat, 6intelc20, TPRUBUE 
/* select a mode */ 
switch (mode2) 


{ 


case 1: /* Organic */ 
if (basic !- 1) 
MEZ «-"— 3 75 /* sets coefficient and exponents */ 
m 
i mÍ 2 M> 2.4; 
p A 1.057 /* for man-days calculation */ 


exp2 = 0.38; 
/* calls function to do COCOMO calculations */ 
calc(results2,KDSI2,EAF2,cdrate2,mf2,expl,exp2); 


break; 
case 2: /* Semi-detached */ 
mE SO 
expl = 1.12; 
exp2 = 0.35; 


/* calls function to do COCOMO calculations */ 
calc (results2, KDSI2,EAF2,cdrate2,mf2,expl,exp2) ; 
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TRUE); 


break; 


case 3: /* Embedded */ 
if (basic != 1) 
{ 
miz == "3 .6; /* sets coefficient and exponents */ 
) 
else 
{ 
mt2a- 29095 
) 
expl = 1.20; 
exp2 = 0.32; 


/* calls function to do COCOMO calculations */ 
calc(results2,KDSI2,EAF2,cdrate2,mf2,expl,exp2); 
break; 


Poe calie function to do nominal productivity calculations */ 
/* results2[0]2Total man-days; results2[2]-2schedule in months */ 
DSMI2(23] * prod(PCNT2,results2[0],results2[2],KDSI2); 


/* display/edit simulation model inputs */ 
model in(DSMI2,PCNT2,KDSI2,results2,mode2, 
fname2,EAF2,cdrate2,donel,mf2); 


/* save updated file automatically */ 
file save (DSMI2,cdrate2,PCNT2,fname2, 
results2([3],KDSI2,mode2,mf2) ; 


project2 = 1; /* Flag when equal to 1 indicates project2 
loaded */ 


/* this ends the input phase and initial COCOMO 

calculations */ 
/* for project2 the user will return to menu to select new */ 
/* projectl, to Display/Edit or to run simulation model */ 
break; 


/* GO TO NEXT LEVEL MENU TO DISPLAY PROJECTS OR RUN SIMULATION */ 
case 3: 


done = Q; 
while (!done) /* New Project Menu loop */ 
{ 
eleser (); 
sel5 = wn_popup(0, 5, 10, 50, 10, wat, bat, &intelc23, TRUE); 
/* New Project Menu */ 


switch (sel5) 
( 
case 1: /* user selected Display/Edit project 1*/ 
. /* display or edit simulation model inputs */ 
model in(DSMI,PCNT,KDSI,results,mode, 
fnamel,EAF1,cdrate,donel,mf1); 


if(results[3]==1.00) /* checks if EAF = 1.00 */ 
{ 
clrscr();/* gives user option to continue */ 
/* using basic model or use intermediate */ 


sel3 = wn popup(0, 5, 10, 50, 10, wat, bat, &intelc21, 
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switch(sel3) 
( 


case 1: /* user selected basic model */ 

basic = i; 

initial (cdrate);/* Basic model EAF values must */ 
break; /* all be 1.00. This sets all */ 

/* Gost drivers to 1,00 */ 

case 2: /* user selected intermediate model */ 
basic = 0; 

initial (cdrate); /* initialize cost drivers to 2 */ 


/* Displays cost driver screen; allows user to */ 

/* set cost drivers to desired level */ 

icocomo in(cdrate,EAF1,done3,fnamel); 

break; 

) /* switch sel3 */ 
|I "ate 
else 
/* if EAF is other than 1.00 */ 
{ 

/* displays cost drivers values and */ 

/* allows user to manipulate */ 

basic = 0; 

icocomo in(cdrate,EAF1,done3,fnamel); 


cirser (7 

switch (mode)/* mode at this point was previously */ 
/* selected and will now be routed to */ 

/* for proper calcualations */ 


{ 


case 1: /* Organic mode */ 
if (basic != 1) 
{ 
mflosm 2 /* sets coefficient and exponents */ 
) 
else 
{ 
mfl 2.4; 
} 
expl 1.05; /* for man-days calculation, 


/* function that actually does the COCOMO calculations */ 
calc (results, KDSI, EAF1,cdrate,mfl,expl,exp2) ; 


break; 
case 2: /* Semi-detached mode */ 
mfl = 3.0; 
expl = 1.12; 
exp2 = 0.35; 
calc (results, KDSI, EAF1,cdrate,mfl,expl,exp2) ; 
break; 
case 3: /* Embedded mode */ 
if (basic != 1) 
{ 
mfl = 37 0- /* sets coefficient and exponents */ 
} 
else 
{ 
mf1 = 2.8; 
} 
expl = 1.20; 
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exp2 0.32; 
cabcioreuults KNDST.EAPISGdrate,mfl,expl,exp2); 
break; 
) /* switch mode */ 
/* automatically save latest changes to file */ 
file save (DSMI,cdrate,PCNT,fnamel,results[3],KDSI,mode,mf1); 
break; 


case 2: /* user selected Display/Edit project 2*/ 


/* display or edit simulation model inputs */ 


model in(DSMI2,PCNT2,KDSI2,results2,mode2,fname2,EAF2,cdrate2,donel,mf2); 


TRUE); 


if(results2[3]==1.00) /* checks if EAF = 1.00 */ 
( 


CLrScr()? 
/* gives user option to continue */ 
/* using basic model or use intermediate */ 


sel3 — wn popup(O0, 5, 10, 50, 10, wat, bat, &intelc21, 


switch (sel3) 
{ 


case 1: /* user selected basic model */ 

basic = 1; 

initial(cdrate2); /* Basic model EAF values must*/ 

break; /* all be 1.00. This sets all */ 
/* cost drivers to 1.00 */ 

case 2: /* user selected intermediate model */ 

basic = 0; 


initial(cdrate2); 
/* Displays cost driver screen; 
allows user to */ 

/* set cost drivers to desired level */ 
icocomo in(cdrate2,EAF2,done3, fname2); 
break; 

) /* switch sel3 */ 
|a SOT 5 
else /* if EAF is other than 1.00 */ 
( 
/* displays cost drivers values and */ 
/* allows user to manipulate */ 
basic = 0; 
icocomo in(cdrate2,EAF2,done3, fname2); 
) 
CELESC): 
Switch (mode2) 


{ 


case l: /* Organic mode */ 
if (basic != 1) 
{ 
miz 3 2: /* sets coefficient and exponents */ 
) 
else 
{ 
miZ. = 2.4; 
} 
expl = 1.05; /* for man-days calculation */ 
exp2 = 0.38; 


/* function that actually does the COCOMO 
calculations */ 
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functron */ 


a 


Simulation. vn. 


calc (results2,KDSI2,EAF2, 
cdrate2,mf2,exp1, exp2); 


break; 
case. /* Semi-detached mode */ 
lnf2 07-93-05 
expl» 1.12; 
exp2 = 0.35; 


calc(results2,KDSI2,EAF2, 
cdrate2,mf2,expl,exp2); 


break; 
case 3: /* Embedded mode */ 
if (basic != 1) 
{ 
mf2 = 3.2; /* sets coefficient and exponents */ 
} 
else 
{ 
me2 0-127415 
) 
expl = 1.20; 
exp2 = 0.32; 


calc(results2,KDSI2,EAF2, 
cdrate2,mf2,expl,exp2); 
break; 
y /* switch mode */ 
/* automatically save latest changes to file */ 
file save (DSMIZ,cdrateZ2,PCNT2, 
fname2,results2[3],;KDSI2,mode2,mf2); 


break; 
case 3: /* user selected to run simulation model */ 
if (projectl) /* If TRUE project 1 data is entered */ 
{ 
if (project2) /* If TRUE project 2 data is entered */ 
{ 
done = 1; /* allows user to exit to initial menu */ 
done6 = 1;/* allows user to exit out of program */ 
done7 = 1; 


/* calls file pass which outputs both SIMTWORDI7 
/* and OUTFILE2.DNX. After completion oft h i s 


/* exit program to DOS which calls Simulation Model 


file pass(results[0],results2[0],results[1], 
results2[1],KDSI;HDSI2,DSMI,DSMI2. 
PCNT,PCNT2); 
) 
else /* Project 1 is entered but project 2 is not */ 
{ 
/* prints message to screen */ 
clrser(); 
: gotoxy (L070) - 
printf("You have not selected 
Project 2.\n"); 
gotoxy (10, 11) 
printf("Both projects must be selected t o r ukm 


gotoxy (10,15); 

printf("Press anyMkey toscoutginue.. pe iaa 
getch(); 

) 
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else /* projectl not loaded */ 


if (project2) (AITE TRUE */ 

/* Project 2 is entered but project 1 is not */ 

{ 

/* prints message to screen */ 

elescr ():; 

gotoxy (10,10); 

printf ("You have not selected 

Project 1.\n"); 

goto iO O 

printf ("Both projects must be selected t o 
smmulation.in"); 

getoxy (107/15) ; 

printf ("Press any Key to continuüue....--... Ma 

getch(); 

} 

else /* neither project is loaded */ 

{ 

/* prints message to screen */ 

Glzscr(); 

götoxy (10,10); 

printf ("You have not selected 

Project 1 or Project 2.1n"); 

gotoxy (10; 11); 

printÍí ("Both projects must be selected t o 
simulation. \n"); 

Ggeotexy (10, 15); 


printf ("Press any key to continue... ol... MIN) 
getch(); 
} 
} 
break; 
case 4: 
done = 1; /* allows user to exit program */ 
done7 2 1; 
break; 
) 
) 
break; 


) 

) /* while done7 */ 

break; 
case 3: 

exit(1); /* Exits program to DOS command line */ 
} /* sel */ 


) /* while done6 */ 
exit (0); /* Exits program and returns back to DOS batch file. 


/* THE END of this program not project */ 


} 
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APPENDIX E 


/* HH A AAA A AAA A A A A A A A oe ode oe ode oe oe oe oe oc oe oe ode oe oe ode oe oe oe ode ode ode oe oe oe oe oe oe ode cde oe obe oe oe oe oe oe oe ode oe oe oe x 


/* * Author: Richard W. Smith Advisor: Prof. Abdel-Hamid * */ 
/* * Program: OUTPUT2 Lang: C * x/ 
/* * Used Shareware <windows.h> in project environment x x*/ 


J* KERR KKK KK KEK KK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK e e A A A A A A */ 


/* This is one of 5 programs written and interfaced with the */ 

/* Dynamic Simulation Model. This particular program gathers  */ 

/* outfile information from several files to generate reports */ 

/* and create an iterative loop environment for studying refinement */ 
/* of cost estimation. */ 


/* The following headers were used and needed to utilize the */ 
/* library functions used throughout this program. */ 


#include <stdio.h> 
#include <math.h> 
#include <conio.h> 


void file pas(float *,float *,int *,int *,float *, float *,float *, Elo a 
float prod (float, float, float intik n 

float interp (float); 

void cktwo(float, float, Eloat, Elcoat, float, float,float *); 

void passtwo(float, float, float, float, float, float) ; 


/* This function provides the avenue to interface the output */ 

/* variables from this program into the simulation model via a */ 

/* text file and pass certain other variables back to the OUTPUT2 */ 
/* program via a binary file for reporting estimates and actual */ 
/* results and error rates. */ 


void file pas(float *TVALS, float *TVALS2Z,int *KDSI,int *KDSI2Z, float =OehMi a. 
*DSMIZ, float *factor,float “~“factor7Z amie cooper) 


{ 
FILE *fpout, *text fale; 


/* need to change to long, once multiplied by 1000 */ 
/* Size could be out of integer range. */ 

long lia. 

11 9 KDST[O)*IOO00-07 

l2 = KDSIZ[0]*1000.0; 


/* input file to simulation model */ 
textfile - fopen("SIMTWO.DNX","w"); 


fprintf(textfile,"C RJBDSTEUy)ZSTIO BAI II). 
fprintf(textfile,"C RJBBST(2)9*Id mw 12); 
fprintf (textfile,"C TOTMD1 (1)=%5.0f£\n", TVALS[0]); 
fprintf (textfile, "C TOTMDT(2)z55.0f n", TVALSCNUMDE 
fprintf(textfile,"C TDEVl(lye$5.0f Vn", TVALSIII; 
fprintf(textfile,"C IDEVIN2)c*5 -0fin", TVAESZITI 
fprintf(textfile,"C INUBST(I)z$5.2f n ""*"DSMI[OUNE 
fprintf(textfile,"C INUDST(2)=%5.2f\n", DSMI2[0]) 
fprintf (textfile,"C ADMPPS(1)=%5.2f\n", DSMI[1]); 


f 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


Dprintf(textfile,"C 
printf (textfile, "C 
fprintf (textfile,"C 
fprinté(textfile,"C 
fprintf (textfile,"C 
Eerintf(textfile,"C 
Roripntf(textfile,"C 
fprintf(textfile,"C 
fprintf (tekxtfile,"C 
fprintf (textfile,"T 


ADMPPS (2) =%5.2f£\n", DSMI2[1]); 
HIREDY (1) =%5.2£\n", DSMI[2]); 
HIREDY (2) =%5.2£\n", DSMI2[2] 
AVEMPT (1) =%5.2£\n", DSMI[3]) 
AVEMPT (2) =%5.2£\n", DSMI2[3] 

]) 

] 


p 

) ; 
TRPNHR (1) =%5.2£\n", DSMI[4]); 
TRPNHR (2) =%5.2f\n", DSMI2[4]) 
ASIMDY (1) =%5.2£\n", DSMI[5]); 


ASUMDY (2)=t5°25\n', DSMIZ2[S5I); 
IND REIS ZE Go Zee Oem se). 2a 35.2ft *5:2£ n", 


r 


DSMI[6],DSMI[7],DSMI[8]  DSMI[9], DSMI[10]; DSMI[11]):; 


Eprintf(textfile,"T 


PNR ees toners oe WS 2t 45-2f09 €*5.2f .$*5.2fXn", 


DSHIZDIOSEDSMIZERTILDSMIZ2ISIODSMI2[9IIDSMI2Z[IO)?;DSMI2[T11]); 


Gerant £ (textfile, "T 


Ono E $5. 3f 00 m 


TREMOG—so eee soe Stato. st S).3f *$5.3f $5.38 $5.3 
DSMI [12], PSM [13], DSM1[14],DSMI[15], 


DSMI[16] DSMI[17];  DSMI[18]; DSMI[19],DSMI[{20];,DSMI[21]); 


fprintf (textfile,"T 


TERMO =S. E O bon or 65.32. 65.35f %5.3f $9.3£ 


$5.3£ $5.3f $5.3£ OXn", DSMI2[12],DSMI2[13],DSMI2[14], 
DSMI2[15],DSMI2[16],DSMI2[17],DSMI2[18], DSMI2[19], 
DSMI2[20],DSMI2[21]); 


merintf (textfile, *C 


DEVPRT (1) =%5.2£\n", DSMI[22]); 


fprintf (textfile, "C DEVPRT(2)=%5.2f\n", DSMI2[22]); 


ferintf(textfile, "C 


DSTETK(1)=%5.2E\N", DSMI[23]); 


Geri ntf (textfile, “C DSIPTK(2)€9$5.2fXn", DSMI2[23]); 


fprintf (textfile,"C 
fprintf (textfile,"C 
HErSntf(textfile,"C 
fclose (textfile); 


STRTDT (1) =%5.2£\n", factor[5]); 
SPRTDW (2 )=t5.2£\n", Eactor2[3]); 
NCLTWF-$5.2fMn", factor[6]); 


/* Binary output file for use by output2 */ 


if ((fpout = fopen("outfile2.dnx", "wb") ) ==NULL) 
{ 


fprintf(stderr, "Unable to open file %s \n","outfile2.dnx") ; 


} 


else 


( 


Merce ((vo1d *) DSMI,26 * sizeof(float),1,fpout); 
Eurrte((void *) DSMI2,26 * sizeof (float) ,1, Epout) ; 
mayerce((yoid *) KDSI,2 * sizeof (int),1,fpout) ; 
Ewrrte((void *) KDSI2,2 * sizeo£t (int) ,1, fpout) ; 
fwrite((void *) TVALS, 2 * sizeof (float),1,£fpout) ; 
fwrite((void *) TVALS2,2 * sizeof(float),1,fpout); 
fwrite((void *) factor,7 * sizeof(float),1,fpout); 
fwrite((void *) factor2,4 * sizeof (float),1,fpout)*; 
EXrste((void *) &loop lIim,sizeof (int),1,fpout); 


fclose(fpout); 
) 


This function does the Nominal Productivity calculations */ 


TOTMD1 - Effort passed from main function in man-days */ 

TDEV2  - Schedule in months not days! */ 

PCNT - array from main function which passes $Testing,$QA */ 
and $Rework for man-days */ 

MM - Effort in man-months */ 


Stf size - Average Staff Size - MM/TDEV2 */ 
DEVMD - Development man-days */ 

ADP - Actual Development Productivity */ 
covhd - Communication Overhead */ 
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/* product - Nominal Productivity */ 


float prod(float pent, float "TOTMDI float TDEV2 AAN EIUS) 


( 
float MM,stf size,DEVMD,ADP,covhd; 


float product: 

MM = TOTMD1/19; 

stf size = MM/TDEV2; 

DEVMD = (1 - pcnt) *TOTMD1; 

ADP = (KDSI[(0} * 1000.0) /DEVMD; 

covhd = interp(stf size); /* call interpolation function */ 
product = ADP/ (0.6 * (1.0-covhd)); 

return product; 


} 
/* Part of the calculation for Nominal Productivity requires */ 
/* interpolation. This function accepts staff size variable */ 
/* and returns communication overhead factor for use in determining */ 
/* Nominal Productivity. */ 
float interp(float stf_ size) 
float covhd,; 
if ((stf size »- 0) && (stf size <= 5)) 
' covhd m (((stf sTze-0) 2005) 
if ((stf size > 5) && (stt size <— 100) 
covhd — (((stf size-5) 2 045) iS 
if ((stf size 2 I0) && (stf "size <= 15)) 
covhd S (((stE3s32e-10) * 2029) DS. 
if ((stfi_ size > 15) 4&. (StEos12e lem 00) 
covhd = (@(sef size-15) * 2105)7 S eo 
if ((stf size 2:20) &SMUSELUSIZOU 
covhd — (((stf size-20)* SII eres, 
lf ((stfilsi2e 025)" && (SECAS ES) 
Covhd pag (((stf size- 25)% dob) o 
if (stf size >= 30) 
covhd ew 54 
OPER covhd; 
y 
/* This function checks Project 2 error rates to determine if */ 


/* error rates are within limits. Only called if Project 1 */ 
/* meets its error rate requirements. Otherwise goes to passtwo */ 
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woud cktwo(float TOTMD2,float TDEV2,float md2,float time2,float oldprod,float 
newprod,float *factor) 
( 


Llostedatfdiffl: 


int num; 
FILE *results; 


if (TOTMD2 >= md2) /* checks if effort estimates are greater */ 
/* than actuals */ 
{ 


if (TDEV2 >= time2) /* checks if sked estimates are greater */ 
/* than actuals */ 
{ 


diff = (TOTMD2-md2)/md2; /* error rate for effort */ 
diffl - (TDEV2-time2)/time2;/* error rate for sked */ 


results = fopen("REPORT.OUT","a"); /* open file */ 


fprintf (results, "in PERCENT 
PERCENT PRODUCTIVITYAN"); 

fprintf (results, "TOTMD2 CUMMD 2 ERROR TDEV2 TIME2 
ERROR OLD NEW\n") ; 


fprintf(results,"%6.0f %6.0£ %6.2£  %6.0f %6.0f  %6.2f£ 
$6.2f£ %6.2f£\n", TOTMD2,md2, diff, 


TDEV2,time2,diffl,oldprod,newprod); 
fclose(results); 


/* check to see if error rates meet requiremnets */ 
if ((diff == 0 && diffl «- factor[4]) || 

(diff <= factor[3] && diffl == 0) || 

(diff <= factor[3] && diffl <= factor[4])) 
( 
/* opens results file to print out at bottom of */ 
/* report.out a reminder of availability of */ 
/* output data */ 


results = fopen("REPORT.OUT", "a") ; 


fprintf (results, "\n\n**** This data is available i n 
BEESESSOUT ****Xn"); 


fprintf(results,"**** Each time the model is run 
REPORT.OUT will change ****\n"); 


fclose (results); 


/* sets cursor at (col,row) */ 
/* Format for output of data */ 


götoxy (10,10); 


print tc REPORT FORMAT CHOICEMn"); 
qotoxy (10, 12) ; 
prints 1 - Display resultsin"); 
gotoxy (10,13); 

- spmESnt £f" 2 - Print results Mn"); 
qotoxy (10,14); 
printf” 3 - Exzstinm)- 
gotoóxy (10,16); 
printf ("Enter one of the above: "); 


, 


scanf ("%d",£num); 


switch (num) 

{ 
case 1: 
clrscr(); 


¡AN 


exit (4); /* sends to screen via DOS */ 

case 2: 

clrser(); 

exit (3); /* sends to printer via DOS */ 

case 3: 

exit (0); /* exits program, but output */ 
/* still available in report.out file */ 


) 


else /* case for effort estimate > actual, but sked */ 
/* actual > estimate */ 
( 


diff = (TOTMD2-md2) /md2; /* error rate for effort */ 
diffl = (time2-TDEV2)/time2; /* error rate for sked */ 
/* Open Output file */ 

results = fopen("REPORT.OUT","a"); 


fprintf (results, TAn PERCENT 
PERCENT PRODUCTIVITY \n"); 

fprintf (results, "TOTMD2 CUMMD2 ERROR TDEVZ TIME2 
ERROR OLD NEW\n") ; 


forintf£ (results, "S6.0f "*6.0f 6-75 %6.0£ %6.0f£ %6.2£ %6.2£ 
S652£ \n", LOIMDZ2, maz, aire, 
TDEV2,time2,diffl.,oldprodonswbrod) 
fclose(results); 


/* check to see if error rates meet requiremnets */ 
if ((diff == 0 && diff1 <= factor[4]) || 

(diff <= factor[3] && diffl == 0) || 

(diff <= factor[3] && diffl <= factor[4])) 
{ 
/* opens results file to print out at bottom of */ 
/* report.out a reminder of availability of */ 
/* output data */ 

results = fopen("REPORT.OUT","a"); 

fprintf (results, "\n\n****x This data is available i n 

REPORT.OUT ****in"m)c 


fprintf(results,"**** Each time the model is run REPORT.OUT 
will change ****\n"); 


fclose (results); 


/* sets cursor at (col,row) */ 
/* Format for output of data */ 
gotoxy (10 1O); 


Printe: REPORT FORMAT CHOICE\n"); 
gotoxy (10—12) 
printe" 1 - Display resultsin"); 
aptoxy (10,13). 
prinprq" 2 - Print results\n"); 
götöxy (10,14); 

= ApPEINCE 3m- Exit\n"); 
gotoxy (10,16); 
printf("Enter one of the above:  "); 


scanf ("%d", &num) ; 


switch (num) 
{ 
case 1: 
clrser(): 


exit (4); /* sends to screen via DOS */ 
case 2: 
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elrscer(), 


exit (3); /* sends to printer via DOS */ 
case 3: 
exit (0); /* exits program, but output */ 


/* still available in report.out file */ 


) 
else /* actual effort is » estimate effort */ 
{ 
if (TDEV2 >= time2) /* checks if sked estimates 
are greater */ 
/* than actuals */ 


diff = (md2-TOTMD2)/md2; @/* error rate for effort */ 

diffl = (TDEV2-time2)/time2; /* error rate for sked */ 

/* open output file */ 

results = fopen("REPORT.OUT","a"); 

fprintf (results, "\n PERCENT 
PERCENT PRODUCTIVITY \n") ; 

fprintf(results, "TOTMD2 CUMMD 2 ERROR TDEV2 TIME2 ERROR 

OLD NEW\n") ; 

fprintf(results,"%6.0£ %6.0f£ $6.2f SOSOE  $6.0f $6.2f :*6.2f 

"NN rin", TOTMD2,md2,diff, 
TDEV2;time2,diffl oldprod,newprod); 
fclose (results); 


/* check to see if error rates meet requiremnets */ 
if ((diff == 0 && diffl <= factor[4]) || 
(diff «- factor[3] && diffl1 == 0) |I 
(diff <= factor[3] && diffl <= factor[4])) 
{ 
/* opens results file to print out at bottom of */ 
/* report.out a reminder of availability of */ 
/* output data */ 
results = fopen("REPORT.OUT", "a") ; 
fprintf (results, "\n\n**** This data is available i n 
REPORT.OUT ****\n") ; 
fprintf (results, "**** Each time the model is run REPORT.OUT 
pchange ****Xn"); 
fclose(results); 


/* sets cursor at (col,row) */ 
/* Format for output of data */ 
gotoxy (10,10); 


ponent (3 REPORT FORMAT CHOICE\n") ; 
getoxy (10,12); 
princf(" 1 - Display results Mn"); 
gotoxy (10,713); 

pinte E 2 = Prine resultsin):; 
gotoxy (10,14); 
PEINEE(T 3 = BIENO) 
goótoxy (10,16): 
printf("Enter one of the above: "); 


scanf ("%d", &num) ; 


switch (num) 


{ 
case 1: 
clescrio 
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PERCENT 


OLD 


exit (4); /* sends to screen via DOS */ 


case 2: 

elrscr():; 
exit (3); /* sends to printer via DOS */ 
case 3: 


exit (0); /* exits program, but output */ 
/* still available in report.out file */ 


) 
else /* actual effort and actual sked are » estimates */ 
{ 
diff = (md2-TOTMD2) /md2; /* error rate for effort */ 
diffl = (time2-TDEV2) /time2; /* error rate for sked */ 
/* open file */ 
results - fopen("REPORT.OUT","a"); 
fprintf (results, “Nn PERCENT 
PRODUCTIVITY \n") ; 
fprintf (results, "TOTMD2 CUMMD 2 ERROR TDEV2 TIME2 ERROR 
NEW\n") ; 
fprintf (results, "%6.0f %6.0f %6.2f $6.0f %6.0f %6.2E X DAE 


$6.2£ Xn", TOTMD2, md2, diff, 


TDEV2,time2,diffl,oldprod,newprod); 

fclose(results); 
/* check to see if error rates meet requiremnets */ 
if ((diff == 0 && diffl <= factor[4]) || 

(diff <= factor[3] && diffl == 0) || 

(diff <= factor[3] € diff£1l, <= factor[4])) 
( 
/* opens results file to print out at bottom of */ 
/* report.out a reminder of availability of */ 
/* output datam; 

results = fopen("REPORT.OUT","a"); 

fprintf (results, "inin**** This data is available i n 


REPORT OUT AA NTE 


fprintf(results,"**** Each time the model is run REPORT.OUT 


will change ****\n"); 


fclose (results); 


/* sets cursor at (col,row) */ 
/* Format for output of data */ 
gotory (10,10); 


printi” REPORT FORMAT CHOICE\n") ; 
gotoxy (210512); 

printi" 1 - Display resultsin"); 
qetoxy (10713); 

prince" 2 - Print results\n"); 
gotoxy (I0, I4); 

printf(” 3 — Esiatinus 

gotoxy (10,16); 

printf ("Enter one of the above:  "); 


scanf ("%d",£num); 


switch (num) 


( 


case 1: 
clrsert 
exit(4); /* sends to screen via DOS */ 
case 2: 
cUrScrcQ- 
exit(3); /* sends to printer via DOS */ 
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case 3: 
exit. (0); /* exits program, but output */ 
/* still available in report.out file */ 


) 


/* This function checks Project 2 error rates to determine if */ 
/* error rates are within limits. Only called if Project 1 */ 
/* does not meet its error rate requirements. Does not exit program */ 


/* from this function */ 


void passtwo(float TOTMD2, float TDEV2,float md2,float time2, float oldprod, float 
newprod) 


{ 
float diff diffl, 
FILE *results; 


if (TOTMD2 >= md2) /* checks if effort estimates are greater */ 
( /* than actuals */ 
if (TDEV2 >= time2) /* checks if sked estimates are greater */ 
( /* than actuals */ 
diff = (TOTMD2-md2) /md2; /* error rate for effort */ 
diffl = (TDEV2-time2)/time2; /* error rate for sked */ 
results = fopen("REPORT.OUT", "a") ; 
fprintf (results, "Ain PERCENT 


PERCENT  PRODUCTIVITYMn"); 
Eprines (results, “TOTMDZ CUMMD 2 ERROR TDEV2 TIME2 ERROR 


OLD NEW\n") ; 
fprintf (results, "%6.0£ %6.0f %6.2f $6.0f£ %6.0£ %6.2£ %6.2£ 
woeezel yn”, TOTMD2,md2, diff, 
TDEV2,time2,diffl,oldprod,newprod); 
fclose(results); 


) 
else /* effort estimate > actual, but sked actual » estimate */ 


diff = (TOTMD2-md2)/md2; /* error rate for effort */ 

diffl = (time2-TDEV2)/time2; /* error rate for sked */ 

results = fopen("REPORT.OUT","a"); 

BOrine © (results, ™\n PERCENT 
PERCENT PRODUCTIVITY \n") ; 

fprintf (results, "TOTMD2 CUMMD 2 ERROR TDEV2 TIME2 ERROR 

OLD NEW\n") ; 

fprintf (results, "%6.0f %6.0£f %6.2f£ %6.0£ %6.0f£ %6.2f£ %6.2£ 

AO", TOTMD2,md2,diff, 
y TDEV2,time2,diffl,oldprod,newprod); 
fclose(results); 


) 
else /* effort actual » estimate */ 


( 


if (TDEV? >S time2) /* checks if sked estimates are greater */ 
{ /* than actuals */ 
diff = (md2-TOTMD2) /md2; /* error rate for effort */ 


diffl = (TDEV2-time2) /time2;/* error rate for sked */ 
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results = fopen("REPORT.OQUL “ae 
fprintf (resúlts 1 PERCENT 
PERCENT PRODUCTIVITY \n"); 
fprintf (results, "TOTMD2 CUMMD 2 ERROR TDEV2 TIME2 ERROR 
OLD NEW\n") ; 
fprintf£ (results, "36.06. *6.06) s6-7t $6.0£ %6.0£ %6.2£ %6.2£ 
$6.2£\n" > TOTMDZ waz dace 
TDEV2,time2,diffl,oldprod,newprEod)s 
fclose(results); 
) 
else /* actuals for effort and sked are » estimates */ 
{ 
diff = (md2-TOTMD2)/md2; /* error rate for effort */ 


diffl = (time2-TDEV2) /time2;/* error rate for sked */ 
results = fopen("REPORT.OUT","a"); 
fprantt (results, “\n PERCENT 


PERCENT PRODUCTIVITY\n") ; 
fprintf (results, (TOTMD2 CUMMD2 ERROR TDEV2 TIME2 ERROR 
OLD NEW\n") ; 
fprintfí(results, *6.0f %6.0f ¥%6.2f €6.0£ %6.0£ &6.2f %6.2£ 
%6.2£\n", TOTMD2; md2 difi, 
TDEV2,time2,diffl,oldprod,newprod); 
fclose (results); 


void main(void) 
{ 
/* Declarations for variables used within this program */ 
int 1, k=0, m=0,- n=0, p=0, KDSI[2], KDSI2[2]; 
int count=0, loop lim, num; 
float j, md, time, TOTMD1, TDEVI, DSMIT29], ditt, sdveo ee pcnue. 
float md2, time2, TOTMD2, TDEV2, DSMI2[26]; diff? diffs, pene, 
float oldprod, newprod,oldprod2, newprod2; 
£lóat TVALS[2], TVALS2[2], factori] tactorzZ [41] 
char string[i2], string2[12]; Steng[( 1214240392 (25 
char dest[12], destl[12], dest2[12], dest 112]; 
FILE *fpin, *fdata, resulto; 


/* initializes the all of the destination strings as null */ 
for (i20;1«12;35 
{ 


dest [i] = NO: 
destl[i] mul XO" > 
dest2[i] SENO 
dest3[i] m ON OCs 
string {i] @=2. 0" - 
string? [i] SERO 
strng[i] Ef Ur 
strng2[i] -— 3x0": 
) 
/* Read the outfile.dnx: Binary file used in reporting */ 


/* Easier to work with binary in this case */ 


if ((fdata = fopen("outfile2.dnx", "rb") ) ==NULL) 
{ 
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fprine (stderr, Unable to open file ts " Nn","outfile2.dnx"); 
) 


else 


{ 

Eread((void *) DSMI,26 * sizeof (float) ,1, Edata) ; 
fread((void *) DSMI2,26 * sizeof(float) ,1, fdata) ; 
fread( (void *) KDSI,2 * sizeof (int) ,1,£data) > 
mread( (void *) KDSI2,2 * sizeof (int) ,1, fdata); 
fread((void *) TVALS,2 * sizeof (float),1,fdata); 
fread((void *) TVALS2,2 * sizeof(float),1, fdata); 
fread ( (void *) factor,7 * sizeof (float) ,1, fdata) ; 
Eread((void *) factor2,4 * sizeof (float) ,1, fdata) ; 
fread((void *) &loop_lim, sizeof (int) ,1, fdata) ; 
fclose (fdata); 

} 


pn = fLopen("SIMTWO.OUT","r"); /* get output from simulation */ 
/* Project 1 */ 
/* GET EFFORT VALUE FROM SIMULATION OUTPUT FILE */ 
me-eegetc(fpin); /* get first character from output file */ 


while (i != 40) /* continue getting characters until ascii */ 
SEE YEA OEE 
{ 


) 
i = fgetc(fpin); 
while (i != 41) /* now get each char and save as string */ 


{ 


i — fgetc(fpin); 


string[k] = i; 
k++; s fill up string project 1 effort */ 
i = fgetc(fpin); 


} 
Sering(|k]="’ \0/ ; 
i = fgetc(fpin) ; 


/* GET EFFORT VALUE FROM SIMULATION OUTPUT FILE */ 
while (i != 40) 
{ 


} 
1 = fgetc(fpin); 
while (i != 41) /* continue getting characters until ascii */ 


/ #40 "(1 */ 


i = fgetc (fpin); 


{ 
string2[m] = i; 
mtt; ¡FEEL up string project 2 effort */ 
i = fgetc(fpin) ; 

} 

string2[m] = ’\0’; 

i = fgetc (fpin); 


/* GET SCHEDULE VALUE FROM SIMULATION OUTPUT FILE */ 

while (i != 40) /* continue getting characters until ascii */ 
/£ H40 (2 */ 

{ 


} 
i = fgetc(fpin); 
while (i != 41) /* continue getting characters until ascii */ 


i = fgetc(fpin); 


S7 


[BRAND "Onus 


steno (n= 
n++; /* fill up string project 1 sked */ 
i = fgetc (fpin); 

} 

strng[n] — '"N0^; /7* nulle~ 


i= Egetc(fpin) 


/* GET SCHEDULE VALUE FROM SIMULATION OUTPUT FILE */ 
while (i != 40) /* continue getting characters until ascii */ 
VOT 
{ 
i = fgetc(fpin); 
) 
i = fgetc(fpin); 
while (i != 41) /* continue getting characters until ascii */ 
/* 41 7)" x*/ 
{ 
strng2[p] = i; 
p++; /* fill up string project e sked */ 
i = fgetc (fpin); 


} 
serng2 ip] = 07 
fclose (fpin); 


strncpy(dest,string,k); /* copy actual proj 1 effort into dest string */ 
md - atof (dest); /* string to float conversion */ 
strncpy(destl,string2,m);/* copy actual proj 2 effort into dest] (strmiae 


md2 = atof(destl); /* string to float conversion */ 
strncpy(dest2,strng,n); /* copy actual proj 1 sked into dest2 string */ 
time = atof(dest2); /* string to float conversion */ 

strncpy (dest3,strng2,p); /* copy actual proj 2 sked into dest3 string */ 
time2 = atof (dest3) ; /* string to float conversion */ 

oldprod = DSMI[23]; /* changes productivity variable name for */ 


oldprod2 = DSMI2[23]; /* reporting purposes */ 


/* Calculate the new productivity values which change dynamically */ 
/* with changes in effort and schedule */ 

DSMI[23] = prod(factor[0],md, (TVALS[1]/19.0),KDSI); 

DSMI2[23]} -= prod(factor2[0],md2,  TIVALS2 T1] P959) KESIT): 


count - KDSI[1]; /* counter initialization */ 
while (count != loop lim) /* checks to see if count equals the */ 
( /* limit on number of loops */ 
/* loop_lim is inouted directly by user */ 
if (TVALS[0] >= md) /* checks if proj 1 effort estimates are */ 
{ i /* greater than actuals */ 


if (TVALS[1] >= time) /* checks if proj 1 sked estimates are */ 
{ /* greater than actuals */ 


diff = (TVALS[0]-md) /md; /* cale error rates for effort */ 
diffl - (TVALS[1]-time)/time; /* calc error rates for sked */ 
results - fopen("REPORT.OUT","a"); 


/* output format */ 
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fprintf (results, 10 PERCENT 
PERCENT PRODUCTIVITY \n") ; 

fprintf (results, "TOTMD1 CUMMD 1 ERROR TDEVI TIMEl ERROR 

OLD NEWNn") ; 

fprintf(results,"$6.0f %6.0f %6.2f %6.0£ €*6.0£f €*6.2f *6.2f 

out un" TVAÉLS[0O0],md,diff, 
DVALSTI]IZStume diffl,oldprod,DSMEI23]); 
fclose (results); 


/* check to see if error rates meet requiremnets */ 
if ((diff == O 44 diffl <= factor[4]) || 

(diff <= factor[3] && diffl == 0) || 

(diff <= factor[3] && diffl <= factor[4])) 


/* if it meets requirements go to cktwo to check proj 2 */ 
cktwo(TVALS2[0],TVALS2[1],md2, 
time2ooldprod2,DSMI2[23],factor); 
) 


else 


/* if it meets requirements go to passtwo to check proj 2 */ 
passtwo(TVALS2[0],TVALS2[1],md2, 
time2 oldprod2,D5MI21[T23]); 


) 


else /* effort estimates » actuals and */ 

( /* sked actuals » estimates */ 
diff = (TVALS[O]-md)/md; /* calc error rates for effort */ 
diffl = (time-TVALS[1])/time; /* calc error rates for sked */ 


results = fopen("REPORT.OUT","a"); 


/* output format */ 
£prinet(resules, "An PERCENT 
PERSENT PRODUCTIVITY \n"); 


fprintf (results, "TOTMD1 CUMMD 1 ERROR TDEV1 TIME1 ERR 
OLD NEW\n") ; 


fprintf(results,"$6.0f %6.0f %6.2f $6.0£ %6.0f $6.2f %6.2£ 
tom cm",TVALS[0],md,diff, 
BV ALSPPIStuime daittrilyokdprod,DSMII23]); 
fclose (results); 


/* check to see if error rates meet requiremnets */ 
if ((diff == 0 && diffl <= factor[4]) || 

(diff <= factor[3] && diffl == 0) [| 

(diff <= factor[3] && diffl <= factor[4])) 


/* if it meets requirements go to cktwo to check proj 2 */ 
cktwo (TVALS2 [0], TVALS2[1],md2, 
tamez, oldprod2,DSMI2 [23], factor) ; 
). 
else 
{ 
/* if it meets requirements go to passtwo to check proj 2 */ 
passtwo (TVALS2 (0), TVALS2 [1] ,md2, 
time2, oldprod2,DSMI2[23]}); 


) 
else /* effort actuals > estimates */ 


{ 
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if (TVALS[1]) >= time) /* checks if proj 1 sked estimates are */ 
{ /* greater than actuals */ 


diff = (md-TVALS[O])/md; /* calc error rates for effort */ 
diffl = (TVALS[1]-time) /time; 


/* calc error rates for sked */ 
results - fopen("REPORT.OUT","a"); 


/* output format */ 
fprintf (results, "in 


PERCENT 
PERCENT PRODUCTIVITY\n"); 
fprintf (results, "TOTMD1 CUMMD 1 ERROR TDEV1 TIME1 ERR 
OLD NEW\n") ; 


fprintf(results,"$6.2t $6.05 *6.2t $6.0£ 
$6.2£1n",TVALSTO) mar der VALS (e 


time, diffi, oldprod, DSMI[23]); 
fclose (results); 


*$6.0£f %6.2£  %6.2£ 


/* check to see if error rates meet requiremnets */ 


if ((diff == 0 && diffl <= factor[4]) || 
(diff <= factor[3] && diffl == 0) || 
(diff <= factor([3] && diffl <= factor[4])) 
{ 


/* if it meets requirements go to cktwo to check proj 2 */ 
cktwo (TVALS2 [0], TVALS2[1],md2, 


time2,o0ldprod2,DSMLI2[23] ^ factcer)- 
) 


else /* does not meet error rate requirements */ 


/* if it meets requirements go to passtwo to check proj 2 */ 
passtwo(TVALS2[0],TVALS2[1],md2, 
time2, oldprod2,DSMI2[23]); 


} 


else /* effort and sked actuals are > estimates */ 


diff = (md-TVALS[0])/md; /* calc error rates for effort */ 
diffl - (time-TVALS[1])/time; /* calc error rates for sked */ 
results = fopen("REPORT.OUT","a"); 


/* output format */ 
fprintf (results, "\n 


PERCENT 
PERCENT PRODUCTIVITY\n") ; 
fprintf(results,"TOTMD1 | CUMMD1 ERROR  TDEV1 TIME1 HRR 
OLD NEW\n") ; 


fprintf(results,"$6.0f %6.0£ %6.2f %6.0f 


$6.0£ $6.2£  *6.2f 
&6.Z2E\n", TVALS(O}, mardree- 


TVALS[1], time, diffi oldprod AE MTI 23]): 
fclose (results); 


/* check to see if error rates meet requiremnets */ 
if ((diff == 0 && diffl <= factor[4}) || 
(diff <= factor[3}] && diffl1 == 0) || 

(diff «2 factor[3] && diffl <= factor[4])) 


/* if it meets requirements go 
Cktwo(TVALS2[0], TVABLS2[1]2mg8g2, 
time2.oldprod2,DSMT2[2 OI M tacto 


to cktwo to check proj 2 */ 


else 
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{ 


/* if it meets requirements go to passtwo to check proj 2 */ 
passtwo (TVALS2 [0], TVALS2[1],md2, 
time2  oldprod2;DSMIZ2[23]):; 


} 


count; /* counts number of loops or iterations */ 
KDSI[1] = count; /* re-sets counter number for next run */ 
EDSI2[I] = count; 


TVALS[0] = md*factor[1]; /* adjusts effort updates for proj 1 */ 
TVALS[1] = time*factor [2]; /* adjusts sked updates for proj 1 */ 
TVALS2[0] = md2*factor2[1]; /* adjusts effort updates for proj 2 */ 
TVALS2[1] = time2*factor2[2]; /* adjusts sked updates for proj 2 */ 


file pas(TVALS, TVALS2,KDSI,KDSI2,DSMI,DSMI2, factor,factor2,loop lim); 


/* checks loop lim against count to see if done */ 
if (count !-2 loop lim) 


{ 
} 


else /* count equaled loop Tim and is ready to exit program */ 


( 


exit (1); /* exits program for next iteration */ 


/* opens results file to print out at bottom of */ 

/* report.out a reminder of availability of */ 

/* output data */ 

results = fopen("REPORT.OUT","a"); 

fprintf (results, "\n\n**** This data is available in REPORT.OUT ****\n"); 
fprintf(results,"**** Each time the model is run REPORT.OUT will change 


EIN) ; 


) 


fclose (results); 
me pe if */ 


/* while */ 


/* sets cursor at (col,row) */ 
/* Format for output of data */ 
gotoxy (10,10); 


pomrntf (" REPORT FORMAT CHOICE\n"); 
gotoxy (10,12); 

print E(" 1 - Display resultsin"); 
qotoxy (10,13); 

prunef(" 2 Print “fesults \n"); 
gotoxy (10,14); 

permet £ (" 3 = Bxit\n")- 


gotoxy (10,16); 
printf ("Enter one of the above:  "); 
scanf ("$d", &num) ; 


switch (num) 


{ 


case 1: 

elrsecr.(.: 

exit (4); /* sends to screen via DOS */ 
case 2: 

clrser() > 

exit(3); /* sends to printer via DOS */ 
case 3: 
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exit (0); /* exits program, but output */ 
/* still available in report.out file */ 


} 


/* end program */ 
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